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IDENTIFICATION 


PRODUCT CODE: AC-8528C-MC 

PRODUCT NAME: CZDLDCO DL11-W DIAG 
DATE CREATED: MARCH 1978 

MAINTAINER: DIAGNOSTIC ENGINEERING 
AUTHOR: DAN CASALETTO 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANEIS. 

COPYRIGHT (C) 1976 1978 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWNG ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 


SEQ 0001 
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1.0 GENERAL INFORMATION 


THIS DIAGNOSTIC IS A LOGIC TEST TO VERIFY THE OPERATION OF THE 

DL11-W SERIAL LINE/ REAL TIME CLOCK INTERFACE. THE PROGRAM 

WILL RUN WITHOUT ANY SPECIAL TEST FIXTURES BY DEFAULT. HOWEVER, A WRAP 
CABLE CAN BE USED AND TESTED BY OPTION (BIT? OF SWR). 


THIS TEST OPERATES ON THE CONSOLE DL11-W SERIAL LINE AND CLOCK INTERFACES 
AS WELL AS UP TO FIFTEEN(15) ADDITIONAL IDENTICALLY CONFIGURED DL11-W 
SERIAL LINE INTERFACES. THE DEFAULT ADDRESSES ARE: 


A. CONSOLE - 177560 SERIAL LINE 
177546 CLOCK 


B. OTHER SERIAL LINE - 776500 FIRST SERIAL LINE ADDRESS 
OF 15 CONSECUTIVE SERIAL 
LINE ADDRESSES 


THE PROGRAM IS DESIGNED TO RUN ON ANY PDP=-11 WITH 8K OF MEMORY 
AND A DL11-W MODULE. IT CAN BE RUN UNDER XXDP,APT, AND ACT MONITORS, 


AND ON PROCESSORS WITH NO HARDWARE SWITCH REGISTER, 
SCFTWARE SWITCH REGISTER = LOCATION 176 


POWER FAILURE IS SUPPORTED FOR SYSTEMS WITH CORE MEMORY. 
NOTE: THIS DIAGNOSTIC WITH THE SWR = 000020 
(CLOCK TESTS ONLY) SHOULD BE USED ON SWITCHLESS CPU'S 
TO TEST KW-11L LINE CLOCK MODULES. 


SYSTEM REQUIREMENTS 


STANDARD 11 FAMILY COMPUTER WITH A CONSOLE OUTPUT DEVICE 
AND 8K OF MEMORY. 


STORAGE 
THE PROGRAM USES MEMORY FROM 00000 TO 22372 
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1.3 ASSUMPTIONS 


IF THE UNIT UNDER TEST (UUT) IS THE CONSOLE , THE PROGRAM WILL 
ASSUME THE REAL TIME CLOCK (RTC) IS ENABLED AND WILL TEST IT 
UNLESS THE TESTS ARE DISABLED BY BIT6 OF THE SwR. 


IF THE UUT !S NOT THE CONSOLE, THE RTC IS NOT TESTED FOR THAT DEVICE. 


THE PROGRAM WILL ASSUME THE ERROR FLAG BITS AND THE BREAK FUNCTION 
OF THE DL11-W ARE DISABLED AND WILL NOT TEST THESE FUNCTIONS 
UNLESS ENABLED BY BIT10 (FOR ERROR FLAGS) AND BIT8 (FOR BREAK) 

OF THE SWR. THE DEFAULT CHARACTER SIZE IS 8 BITS (SEE PARA 2.3.2). 


a 


OPERATING INSTRUCTIONS 


USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED TAPES. 


STARTING PROCEDURE 


LOAD THE SWITCH REGISTER WITH SETTING 
(SOFTWARE SWITCH REGISTER LOCATION = 176) 


A. START AT 200. 
AFTER CHECKING THE TRANSMITTER, THE PROGRAM WILL PRINT ITS IDENTIFICATION 
AND REPORT THE NUMBER OF DEVICES UNDER TEST (NUMBER IS OCTAL). 
eed! tile IS PRINTED AFTER A FULL PASS HAS BEEN MADE ON ALL DEVICES 
U . 


START AT 204. eeeeNOTE rete 

THE ““ECHO"' TEST WILL BE EXECUTED. AN ‘‘*’’ IS PRINTED AT THE 
BEGINNING OF THE TEST. THE ECHO TEST READS A CHARACTER FROM 
THE TERMINAL WRITES THAT CHARACTER TO THE TERMINAL AND 
REPORTS ANY ERROR FLAGS SET IN THE RECEIVER BUFFER. 

A CONTROL~C HALTS THE TEST AND PRINTS ‘’STOP’' AT THE TERMINAL 
CONTINUING RESTARTS THE ECHO TEST. 


START AT 210. eeteNOTE tere 

THE TERMINAL OUTPUT TEST WILL BE EXECUTED. DEPRESSING ANY oo 
AT THE TERMINAL, HALTS THE TEST. CONTINUING RESTARTS THE TEST 

THE TEST OUTPUTS 32 CHARACTERS ON A LINE AND REPEATS THE 

PATTERN EVERY THREE LINES. THE PATTERN IS AS FOLLOWS 

(OCTAL CODE 040 --> 377): 


(OCTAL CODE) 
1"'WS2B" () e+, -./0123456789: ; <=>? (040 --> 077) 


@ABCDEFGHI JKLMNOPQRSTUVWXYZ (100 --> 137) 
"ABCDEF GHI JKLMNOPQRSTUVWXYZ (140 --> 177) LOWER CASE ALPHA 


SEQ 0003 
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THIS BOTTOM LINE COULD BE THE FOLLOWING IF THE TERMINAL 
DOES NOT HAVE LOWER CASE: 


@ABCDEF GHI JKLMNOPQRSTUVWXYZ UPPER CASE ALPHA 
keeeNOTE reer 
IF THE TESTING ON TERMINIALS OTHER THAN THE CONSOLE IS DESIRED i2+4C 


FOR TESTS B OR C,SEE SECTION 2.3.4. AND 2.3.5. OF THIS DOCUMENT. z3ee€ 


SEQ 0004 


oe 
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2.3 


OPERATING PROCEDURE 


NOTE: IF NO HARDWARE SWITCH REGISTER IS AVAILABLE THE PROGRAM 
WILL AUTOMATICALLY USE THE CONTENTS OF LOCATION 
176 AS THE SOFTWARE SWITCH REGISTER. THE USER SHOULD 
SET THIS LOCATION BEFORE STARTING THE PROGRAM. IF A 
HARDWARE SWITCH IS AVAILABLE AND A SOFTWARE SWR IS 
DESIRED, PUT ALL SWITCHES UP. 


HALT UN ERROR 

SCOPE LOOP 

INHIBIT ERROR TYPEOUT 

UNUSED 

UNUSED 

ENABLE ERROR FLAGS TESTS 

LOOP ON ERROR 

ENABLE BREAK FUNCTION TESTS 

ENABLE DATA TEST WITH WRAP CABLE 

INHIBIT RTC TESTS (ALLOW ONLY SLU TESTS) 
ALLOW MANUAL SETTING OF ‘’SDEVM'' (DEVICE MAP) 
INHIBIT SLU TESTS (ALLOW ONLY LINE CLOCK TESTS) 


BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE 
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING G 

(CNTL G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE 
THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY AREAS OF THE PROGRAM 
CODE (IE) ERROR ROUTINES, AFTER HALTS END OF PASS, AND OTHER 
APPLICABLE AREAS. BECAUSE THIS DIAGNOSTIC USES THE MAINTENANCE BIT 

OF THE SERIAL LINE, THE CONTROL~G SHOULD BE ISSUED DURING PROGRAM 
TYPEOUTS AT THAT TIME THE MAINTENANCE BIT IS SURE TO BE CLEAR. 


IF A CONTROL-G IS DETECTED, UPON EXECUTION THE CONTENTS OF THE SWREG ARE 
DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED 


(IE) SWR=XXAXXX NEW= 
POSSIBLE RESPONSES ARE: 


1. <CR> IF NO CHANGES ARE TO BE MADE 

és 6 DIGITS 0-7 TO REPRESENT IN OCTAL THE NEW SWITCH REGISTER 
VALUE ;LAST DIGIT FOLLOWED BY <CR>. 

3. U TO ALLOW REENTERING VALUE IF ERROR IS COMMITTED 
KEYING IN SWREG VALUE. 


SEQ 0005 





C 
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> 


2.3.2 SETTING BITS PER CHARACTER 


THIS PROGRAM DEFAULTS TO TESTING 8 BITS PER CHARACTER. IF THE 
SERIAL LINE IS SET FOR 5-=->7 BITS PER CHARACTER, SET THE 
MEMORY LOCATION ‘‘SUSWR’’ AS FOLLOWS: 


CHAR. SIZE ““SBUSWR'’ CONTENTS 

(# OF BITS) (BINARY) (OC TAL) 
8 100000000 400 
7 010000000 200 
6 " , 001000000 100 
5 000100000 40 


““SUSWR'' IS USED IN THE DATA PATH TESTS TO LIMIT THE BINARY 
nd vt eres TO THE NUMBER OF BITS SELECTED ON THE 
L LINE. 


2.3.3 RUNNING UNDER APT 


THE APT MAILBOX IS LOCATED AT LOCATION 500, TO ALLOW ADDITIONAL SERIAL 
LINE VECTOR ASSIGNMENTS TO THE 400 AREA OF MEMORY. 


THE EXECUTION TIMES PROVIDED ARE FOR EXECUTION WITH AN 11/34 PROCESSOR, 
CORE MEMORY, AND 110 BAUD. 
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2.3.4 


2.3.5 


RUN WITH ALTERNATE CONSOLE ADDRESS 
TO USE A CONSOLE ADDRESS OTHER THAN 177560, OR VECTOR OTHER 
THAN 60, THE OPERATOR MUST SUPPLY THE PROGRAM WITH THE 
CORRECT ADDRESSES BY INSERTING THEM AT THE TAG LABELED ‘'CRCSR"’: 

CRCSR: ADDRESS OF RECEIVER RCSR 

CRBUF: ADDRESS OF RECEIVER BUFFER 

CTCSR: ADDRESS OF TRANSMITTER CSR 

CTBUF: ADDRESS OF TRANSMITTER BUFFER 

CRVECT: ADDRESS OF RECEIVER VECTOR 

CRPSW: ADDRESS OF ASSOCIAED PSW 

CTVECT: ADDRESS OF TRANSMITTER VECTOR 

CTPSW: ADDRESS OF ASSOCIATED PSW 


TESTING ADDITIONAL SERIAL LINES 

THIS PROGRAM WILL SUPPORT TESTING OF MULTIPLE SLU'S. IT REQUIRES 
THE ADDRESS OF THE FIRST ADDITIONAL RCSR (STORED AT ‘'SBASE'') AND 
ITS INTERRUPT VECTOR (STORED AT ‘‘$SVECT1"'); AND WILL BE ABLE 

TO ADDRESS ANY SLU STARTING AT THE SPECIFIED BASE ADDRESS UP TO 
15 CONSECUTIVE DEVICES. 


EXAMPLE: $BASE: 776500 

$VECT1: 300 
THE PROGRAM WILL BE ABLE TO TEST THE CONSOLE PLUS ANY 
ADDITIONAL DL11-W SLU'S WITHIN THE RANGE 776500 --> 776660 


$BASE AND $VECT1 DEFAULT TO 776500 AND 300 RESPECTIVELY. 


THE PROGRAM ASSOCIATES UNIT NUMBERS TO DEVICES AS FOLLOWS: 
(NUMBERS IN PARENTHESIS ARE OCTAL) 


UNIT# 0 --> CONSOLE ADDRESS STORED AT ‘'CRCSR" 
UNIT# 1 ==> BASE ADDRESS STORED AT ‘'$SBASE" 
ASSOCIATED BASE VECTOR STORED AT''$SVECT1" 
UNIT# 2 --> BASE ADDRESS + (10) 
BASE VECTOR + (10) 
UNIT# 3 --> BASE ADDRESS + (20) 


UNIT# 4 ==> BASE ADDRESS + (30) 
BASE VECTOR + (30) 


UNIT#15 


t 
v 


BASE ADDRESS + (160) 
BASE VECTOR + (160) 


SEQ 0007 
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STARTING AT LOCATION 200 AND HAVING SITS OF SWR CLEAR, THE PROGRAM WILL SELF 
SIZE THE NUMBER OF DEVICES (STARTING AT THE BAS ADDRESS) AND 

STORE A BIT MAP AT ‘“’SDEVM'’ (DEVICE MAP) TO INDICATE WHICH UNIT NUMBERS 

ARE PRESENT AND WILL BE TESTED: 


! UNIT ! UNIT ! 
; 4% ; ws 


A BIT MAP CAN BE ENTERED AT ‘’SDEVM'’ PRIOR TO STARTING THE PROGRAM 
SETTING BITS OF THE SWR INHIBITS THE SELF-SIZING AND DEVICE MAP 
GENERATION,AND USES THE VALUE STORED BY THE OPERATOR. 


EXAMPLE: 

SWR = 000040 BINARY 0 000 000 000 100 000 
$BASE: 776500 

$VECT1: 300 


SDEVM: 13 BINARY ~- 0 000 000 000 001 011 


THE PROGRAM WILL TEST - 
UNIT# 0 


CONSOLE 
UNIT# 1 = 776500 ; 300 
UNIT# 3 = 776520 ; 320 
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EXECUTION TIMES - (110 BAUD) 


LONGEST SUBTEST TIME = 50 SECONDS 
PASS TIME 60 SECONDS 
ADDITIONAL DEVICES 55 SECONDS/DEVICE 


ERROR REPORTING 


IF A ROUTINE FAILS AND THE INHIBIT ERROR TYPEOUT (BIT13) OF THE SWR 
IS NOT SET, A PRINTOUT RESULTS IN THE FORM: 


“(SOME ASCII MESSAGE)". 
TEST# ERR PC RCSR ANY APPLICABLE DAT HEADINGS 
XXXXXX XXXXXK XXKXXX ANY. APPLICABLE DATA 


NOTE: ‘"RCSR"' IS DEPENDENT ON THE FAILURE 
& THEREFORE COULD BE TCSR,RBUF,TBUF,OR LKS 


WHERE "'XXXXXX"' IS AN OCTAL NUMBER. 

THIS ERROR PRINTOUT OCCURS PROVIDED THE ERROR THAT EXISTS 

WOULD NOT HINDER THE TYPEOUT. IN CASES WHERE IT IS NOT POSSIBLE 

TO PRINT AN ERROR MESSAGE (I.E. FATAL CONSOLE TRANSMITTER 
FAILURES), A HALT OCCURS AND THE PC CAN BE EXAMINED BY THE OPERATOR 


TO FIND THE ERROR INFORMATION IN THE PROGRAM LISTING. 


NOTE: FOR SOFTWARE SWITCH OPERATION, THE SWITCH REGISTER CAN 


BE CHANGED BY TYPING A CONTROL-G AT THE CONSOLE DURING ERROR PRINTOUTS. 


AFTER CONTINUING FROM THE ERROR HALT THE OLD SWR CONTENTS 
IS DISPLAYED AND THE NEW CONTENTS CAN BE ENTERED. 

IF ERROR HALTS ARE DISABLED, THE CONTROL~G RESPONSE OCCURS 
IMMEDIATELY FOLLOWING THE TYPEOUT. 


SEQ 0009 
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4.0 


SUBROUTINE ABSTRACTS 


THIS IS A SERIES OF INSTRUCTIONS STARTING AT LOCATION 0 DESIGNED TO 
DETECT AND ISOLATE UNEXPECTED TRAPS TO THE TRAP AND INTERRUPT VECTOR 
AREA OF MEMORY. 


EACH VECTOR ENTRANCE ADDRESS IS LOADED WITH THE ADDRESS OF THE NEXT 
LOCATION. THE NEXT LOCATION IS LOADED WITH A BREAK POINT TRAP (000003). 
THUS AN ILLEGAL TRAP OR INTERRUPT CAUSES A TRAP THROUGH THE BPT VECTOR(14) 
WHICH POINTS TO THE ‘’CA‘CH'’ ROUTINE. 


THE "*CATCH’' ROUTINE REPORTS THE PC THAT CAUSED THE ORIGINAL TRAP AND 


THE LOCATION OF THE TRAP VECTOR (IF UNDER APT, AN ERROR IS INDICATED TO APT). 


AFTER REPORTING THE ERROR THE PROGRAM HALTS. THE PROGRAM MUST BE RESTARTED 
AT THIS POINT. 


THIS ROUTINE IS USED TO WRITE THE PSW BY POPPING VALUES FROM THE 
Seoredenea” METHOD IS USED TO BE COMPATIBLE WITH ALL 11 FAMILY 
OCESSORS. 


THIS ROUTINE CALL IS PLACED BETWEEN EACH SUBTEST. IT RECORDS THE STARTING 
ADDRESS OF EACH SUBTEST AS IT IS BEING ENTERED AND UPDATES THE 

TEST NUMBER. IF A SCOPE LOOP IS REQUESTED, IT WILL JUMP TO THE START OF THE 
SUBTEST AT WHICH THE SCOPE LOOP IS REQUESTED. 


SEQ 0010 
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THIS ROUTINE CALL IS PLACED WHEREEVER AN ERROR REPORT 

IS DESIRED. THE LOWER BYTE OF THIS CALL IS USED AS THE ERROR NUMBER 
AND AS A POINTER INTO THE ERROR TABLE . THIS ROUTINE REPORTS ERRORS 
TO APT USING ‘‘SAPTYPE'’ AND TYPES ERROR REPORTS TO THE CONSOLE 

USING ‘‘SERRTYPE"’. 


SPOWER 


THIS ROUTINE SAVES ALL GENERAL REGISTERS DURING POWER-DOWN 
AND RESTORES THEM AT POWER-UP. IF A POWER FAILURE OCCURS 
POWER’ IS PRINTED AT THE CONSOLE AFTER POWER IS RESTORED. 


THIS ROUTINE CALL IS USED TO DETECT THE RECEPTION OF A CONTROL-G 
FROM THE CONSOLE. THE CALL USES ‘’SREAD'’ TO PERFORM THE CONTROL-G 
SEQUENCE OF DISPLAYING THE CONTENTS OF THE SOFTWARE SWITCH REGISTER 
AND THE ENTERING THE NEW CONTENTS FROM THE TERMINAL. 


SEQ 0011 





C2 
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-SBTTL BASIC DEFINITIONS 


s*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
001100 STACK= 1100 
-EQUIV EMT,ERROR > ;BASIC DEFINITION OF ERROR CALL 
-EQUIV I0T,SCOPE ::BASIC DEFINITION OF SCOPE CALL 


: *MISCELLANEOUS DEFINITIONS 
000011 HT= 11 ::CODE FOR HORIZONTAL TAB 
000012 LF= 3:CODE FOR LINE FEED 
000015 CR= 15 3:CODE FOR CARRIAGE RETURN 
000200 CRLF= :;CODE FOR CARRIAGE RETURN-LINE FEED 
177776 PS= , :;PROCESSOR STATUS WORD 
EQUIV 
177774 STKLMT= ::STACK LIMIT REGISTER 
177772 PIRQ= 3;PROGRAM INTERRUPT REQUEST REGISTER 
177570 DSWR= : HARDWARE SWITCH REGISTER 
177570 DDISP= 177570 ; HARDWARE DISPLAY REGISTER 


;*GENERAL PURPOSE REGISTER DEFINITIONS 

000000 RO= 20 :;GENERAL REGISTER 
; GENERAL REGISTER 
;;GENERAL REGISTER 
7;GENERAL REGISTER 
; GENERAL REGISTER 
::GENERAL REGISTER 
; GENERAL REGISTER 
; GENERAL REGISTER 
3:STACK POINTER 

000007 PC= 3 :PROGRAM COUNTER 


:*PRIORITY LEVEL DEFINITIONS 

PRO= 0 ::PRIORITY LEVEL 
PR1= ::PRIORITY LEVEL 
PR2= 7 :PRIORITY LEVEL 
PR3= :sPRIORITY LEVEL 
PR4= ;;PRIORITY LEVEL 
PR5= ;;PRIORITY LEVEL 
PR6= : PRIORITY LEVEL 
000340 PR7= 7 sPRIORITY LEVEL 


3*'SWITCH REGISTER’ SWITCH DEFINITIONS 
SW15= 100000 


000000 


NOUS WN OO 


100000 


000200 
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478 000100 SwO6= 100 
479 000040 SwO5S= 40 
480 000020 Sw04= 20 
481 000010 swO3= 10 
482 000004 SWO02= 
483 000002 swOi= 2 
484 000001 swoo= 1 
485 -EQUIV SW09,SW9 
486 -EQUIV SW08,SW8 
487 -EQUIV SWO7,SW7 
488 -EQUIV SW06,SW6 
489 -EQUIV SWO5,SW5 
490 -EQUIV SW04,SW4 
491 -EQUIV SW03,SW3 
492 -EQUIV SWO02,SW2 
493 -EQUIV SW01,SW1 
ize -EQUIV SwW00,SWO 
496 ;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
497 100000 BIT15= 100000 
498 040000 BIT14= 40000 
499 020000 BIT13= 20000 
500 010000 BIT12= 10000 
501 004000 BIT11= 4000 
502 002000 BIT10= 2000 
503 001000 BITO9= 1000 
504 000400 BITO8= 400 
505 000200 BITO7= 200 
506 000100 BIT06= 100 
507 000040 BITO5= 40 
508 000020 BIT04= 20 
509 000010 BITO3= 1 
510 000004 BITO2= 4 
511 000002 BITO1= 2 
512 000001 BITOO= 1 
513 -EQUIV BITO9,BIT9 
514 -EQUIV BIT08,B1T8 
515 -EQUIV BITO7,BIT7 
516 -EQUIV BIT06,BIT6 
517 -EQUIV BITO5,BITS 
518 -EQUIV BIT04,BI1T4 
519 -EQUIV BIT03,B1T3 
520 -EQUIV BITO2,BIT2 
$21 -EQUIV BITO1,B1T1 
se -EQUIV. BIT00,BIT0 
524 ;*BASIC ‘'CPU’’ TRAP VECTOR ADDRESSES 
525 000004 ERRVEC= 4 7:TIME OUT AND OTHER ERRORS 
526 000010 RESVEC= 10 ‘rene AND ILLEGAL INSTRUCTIONS 
527 000014 TBITVEC=14 “T" BIT 
528 000014 TRIVEC= 14 TRACE TRAP 
529 000014 BPTVEC= 14 ; BREAKPOINT TRAP (BPT) 
530 000020 IOTVEC= 20 :; INPUT/OUTPUT TRAP (I0T) **SCOPE** 
531 000024 PWRVEC= 24 7;POWER FAIL 
532 000030 EMTVEC= 30 > EMULATOR TRAP (EMT) **ERROR** 
533 000034 TRAPVEC=34 3;"'TRAP’’ TRAP 


-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 14 SEQ 0014 
CZDLDC.P11 19-APR-78 11:41 BASIC DEFINITIONS 


000060 TKVEC= 60 :: TTY KEYBOARD VECTOR 
TPVEC= 64 ;;TTY PRINTER VECTOR 
PIRQVEC=240 ;:PROGRAM INTERRUPT REQUEST VECTOR 
ABASE= 176500 
AVECT1= 300 
AUSWR= 400 
STN= 1 
$SswR= 161000 
000003 BPT= 000003 ; THIS IS THE COMMAND FOR A TRAP 
: THROUGH 14 (BPT TRAP) 


000000 .=0 
SPREE REA E AA E REE AAREEAEEEE EEE EAE AERA AAA EERE KEE 
:*ALL UNUSED LOCATIONS FROM 4-776 CONTAIN A ‘'.+2,BPi"' 
:*SEQUENCE TO CATCH ILLEGAL TRAPS & INTERRUPPTS 
:*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


000014 .=14 THE BPT TRAP VECTOR POINTS TO THE 
000014 012254 . WORD ; ILLEGAL TRAP HANDLER ‘'CATCH’' 
000016 000340 » WORD 


000042 -= 
000042 000000 . WORD 


000174 


000174 000000 DISPREG: .WORD 
000176 000000 SWREG: 


000200 ; 
¥90200 000137 002546 ;D0 INTERFACE TEST 
000204 000137 014762 :D0 ECHO TEST 
000210 000137 015202 OUTTST :D0 OUTPUT TEST TO TERMINAL 
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000500 


-= 500 
-SBTTL ACT11 HOOKS 


RSet tet eit terete rir ii iis r iri iii i titi i titi ti isi iti i iti i tt 
;HOOKS REQUIRED BY ACT11 
000500 $SVPC=. sSAVE PC 
000046 ° 
000046 012152 3:1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
000052 -=52 
000052 000000 ‘ 332)SET LOC.52 TO ZERO 
000500 -=SSVPC 3; RESTORE PC 
-SBTTL APT PARAMETER BLOCK 


PERAK EKEEERKEKE EERE 


SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
Pec e et tet et ti titi sti titi titi attitiilitisiiiiiitiiti tii titi iat t 
000500 ~-$X=. 3; SAVE CURRENT LOCATION 
000024 .=24 :;SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 3;FOR APT START UP 
000044 -=44 ::POINT TO APT INDIRECT ADDRESS PNTR. 
000044 000500 SAPTHDR ;;POINT TO APT HEADER BLOCK 
000500 =.$X  ;;RESET LOCATION COUNTER 
ITITITITICITTITITITTTITTETITELI TTL TT TLL TTI tiiT titi 
SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


000500 SAPTHD: 
000000 $HIBTS: . ;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
SMBADR: SMAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 
STSTM: . 50 ;;RUN TIM OF LONGEST TEST 
SPASTM: . 60 : RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
SUNITM: . 55 ;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
000512 000030 . SETEND-SHAIL/2 ;;LENGTH MAILBOX-E TABLE (WORDS) 
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001000 
001000 
001002 
001003 
001004 
001006 
001010 
001012 
001014 
001015 
001016 
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COMMON TAGS 


-SBTTL COMMON TAGS 


STEERER EEE EEE EERE EERE AAA 


:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


SCMTAG: 


STSTNM: . 
SERFLG: . 


SICNT: 


SLPADR: . 
SLPERR: . 
SERTTL: . 
SITEMB: . 
SERMAX: 
SERRPC: 
SGDADR: 
SBDADR: . 
SGDDAT: 


3; START OF 


>; CONTAINS 
3s: CONTAINS 
3: CONTAINS 
3; CONTAINS 
3; CONTAINS 
3; CONTAINS 
3; CONTAINS 
3: CONTAINS 
3; CONTAINS 
>; CONTAINS 
>: CONTAINS 
> CONTAINS 


COMMON TAGS 


THE TEST NUMBER 

ERROR FLAG 

SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 

MAX. ERRORS PER TEST 

PC OF LAST ERROR INSTRUCTION 
ADDRESS OF ‘GOOD’ DATA 
ADDRESS OF ‘BAD’ DATA 
*GOOD" DATA 


S$BDDAT: . 3;CONTAINS ‘BAD’ DATA 


;;RESERVED--NOT TO BE USED 


AUTOMATIC MODE INDICATOR 
3: INTERRUPT MODE INDICATOR 


SWR: ; ADDRESS OF SWITCH REGISTER 

DISPLAY: .WORD ; ADDRESS OF DISPLAY REGISTER 

$TKS: 3: TTY KBD STATUS 

$TKB: 3: TTY KBD BUFFER 

$TPS: 177564 3; TTY PRINTER STATUS REG. ADDRESS 

STPB: 177566 3: TTY PRINTER BUFFER REG. ADDRESS 

$NULL: .BYTE 0 >: CONTAINS NULL CHARACTER FOR FILLS 

SFILLS: .BYTE ; 3: CONTAINS # OF FILLER CHARACTERS REQUIRED 
0 


SAUTOB: . 
SINTAG: . 


ooooooo°c;eoo-oCoCooCooooo 


o°9 
onM 
—-£ 
ow 
v 


SFILLC: .BYTE 2 72 INSERT FILL CHARS. AFTER A ‘“‘LINE FEED" 
STPFLG: .BYTE 33°‘TERMINAL AVAILABLE’’ FLAG (BIT<07>=0=YES) 
SESCAPE: :;ESCAPE ON ERROR ADDRESS 
SQUES: .ASCII /?/ > QUESTION MARK 
015 SCRLF: .ASCII <15> :; CARRIAGE RETURN 
001064 000012 SLF: eASCIZ <12> 3;LINE FEED 


Pee PPP RRR R ERASER RRASSSASE ASSES ASE ALAS SLES LESS SEES SESE SSS ERS SS SE 


\SBTTL APT MAILBOX-ETABLE 


ESS PPP ERR R RR RR EERE RE ALAR EASAS RRL RASAESE CASE SESE E SECS E RSLS SS OY 


001066 . 2 >; APT MAILBOX 
; AMSGTY ;;MESSAGE TYPE CODE 
AFATAL ;;FATAL ERROR NUMBER 
ATESTN ;;TEST NUMBER 
APASS ;;PASS COUNT 
ADEVCT ;;DEVICE COUNT 
AUNIT ;;1/0 UNIT NUMBER 
t AMSGAD ;;MESSAGE ADDRESS 
000000 AMSGLG ;;MESSAGE LENGTH 
001106 SETABLE: 3;APT ENVIRONMENT TABLE 
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001106 000 SENV: AENV > ENVIRONMENT BYTE 
001107 000 SENVM: . AENVM ;;ENVIRONMENT MODE BITS 
001110 000000 SSWREG: . ASWREG ;;APT SWITCH REGISTER 
001112 000400 SUSWR: . AUSWR ;;USER SWITCHES 
001114 000000 S$CPUOP: . ACPUOP ;;CPU TYPE,OPTIONS 
;* BITS 15-11=CPU TYPE 
; 11/04=01,11/05=02,11/20=03,11/40=04,11/45=05 
11/70=06 ,PDQ=07,0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
i AMAMS1 ;;HIGH ADDRESS.M.S. BYTE 
SMTYP1: . AMTYP1 ;;MEM. TYPE,BLK#1 
s* MEM.TYPE BYTE == (HIGH BYTE) 
; 900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
001120 000000 3 6 AMADR1 ;;HIGH ADDRESS,BLK#1 
MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘'TYPE'’ ABOVE 
001122 o AMAMS2 ;;HIGH ADDRESS,M.S. BYTE 
001123 000 ts AMTYP2 ;;MEM.TYPE,BLK#2 
001124 Ss AMADR2 ;;MEM.LAST ADDRESS ,BLK#2 
000 : AMAMSS ;;HIGH ADDRESS,M.S.BYTE 
AMTYPS ;;MEM.TYPE,BLK#3 
AMADR3) ;;MEM.LAST ADDRESS,BLK#3 
AMAMS4 ;;HIGH ADDRESS,M.S.BYTE 
AMTYP4 ;;MEM.TYPE ,BLK#4 


AMADR4 ;;MEM.LAST ADDRESS ,BLK#4 
AVECT1 ;; INTERRUPT VECTOR#1,BUS PRIORITY#1 
AVECT2 ;; INTERRUPT VECTOR#2BUS PRIORITY#2 
Sow ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
000000 , ADEVM = ;;DEVICE MAP 


001146 
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~SBTTL ERROR POINTER TABLE 


>*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

>*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

:*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
;*NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRPC). 

:*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


::POINTS TO THE ERROR MESSAGE 
:;POINTS TO THE DATA HEADER 
::POINTS TO THE DATA 

:;POINTS TO THE DATA FORMAT 


001146 SERRTB: 


001146 - SERRTB: 

001146 015266 E 7""CAN NOT ACCESS TCSR"' 
0071-9 021451 :‘'TEST# ERR PC TCSR"’ 
001152 022204 sSTESTN,SERRPC,TCSR 
001154 000000 


001156 015312 :""CAN NOT ACCESS TBUF"' 
001160 021476 :‘"TEST# ERR PC  TBUF"’ 
001162 022214 / ;STESTN,SERRPC, TBUF 


001164 000000 


001166 015336 :"'TCSR DONE NOT CLEARED WITH TBUF FULL" 
001170 021451 :"TEST# ERR PC TCSR" 

001172 022204 sSTESTN,SERRPC,TCSR 

001174 000000 0 


001176 015403 :"'TCSR DONE NOT SET"’ 
001200 021451 ;"TEST# ERR PC TCSR" 
001202 022204 STESTN,SERRPC,TCSR 
001204 000000 


001206 015425 ;TCSR DONE NOT SET WITH RESET 
001210 021451 :"TEST# ERR PC TCSR' 

001212 022204 ;STESTN,SERRPC,TCSR 

001214 000000 


001216 015462 :""CAN NOT ACCESS RCSR"' 
001220 021523 :‘TEST# ERR PC RCSR" 
001222 022224 STESTN, SERRPC,RCSR 
001224 000000 


001226 015506 :""CAN NOT ACCESS RBUF"’ 
021550 ;“TEST# ERR PC RBUF"’ 
022234 ;STESTN, SERRPC ,RBUF 
001234 000000 0 


001236 015532 :""CAN NOT ACCESS LkS" 
001240 021575 ;"TEST# ERR PC LKS" 
001242 022244 sSTESTN, SERRPC,LKS 
001244 000000 0 
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001246 015555 ;‘'BITO OF TCSR NOT CLEAR AFTER RESET"’ 
001250 021451 ;"TEST# ERR PC TCSR 

001252 022204 sSTESTN,SERRPC,TCSR 

061254 000000 0 


001256 015620 :""CAN NOT SET BITO OF TCSR" 
001260 021451 :“TEST# ERR PC TCSR" 
001262 022204 sSTESTN,SERRPC,TCSR 

001264 000000 0 


001266 015651 2\'CAN NOT CLEAR BITO OF TCSR" 
001270 ;"TEST# ERR PC TCSR' 

001272 sSTESTN,SERRPC,TCSR 

001274 000000 


001276 015704 :'RESET DID NOT CLEAR BITO OF TCSRY’ 
021451 :'TEST# ERR PC TCSR" 
022204 sSTESTN,SERRPC,TCSR 

001304 000000 


001306 015745 :"BIT2 OF TCSR NOT CLEAR AFTER RESET" 
001310 021451 :"'TEST# ERR PC TCSR" 

001312 022204 sSTESTN,SERRPC,TCSR 

001314 000000 0 


001316 016010 :""CAN NOT SET BIT2 OF TCSR"’ 


001320 021451 ;“TEST# ERR PC TCSR" 
001322 022204 sSTESTN,SERRPC,TCSR 
001324 000000 C 


001326 016041 :\'CAN NOT CLEAR BIT2 OF TCSR"’ 
001330 021451 ;“TEST# ERR PC TCSR" 

001332 022204 sSTESTN,SERRPC,TCSR 

001334 000000 


001336 016074 :\'RESET DID NOT CLEAR BIT2 OF TCSR" 
001340 021451 ;TEST# ERR PC TCSR" 

001342 022204 ;STESTN,SERRPC,.TCSR 

001344 000000 


001346 016135 ’ :\'BIT6 OF TCSR NOT CLEAR AFTER RESET2 
001350 021451 ;'TEST# ERR PC TCSR' 

001352 022204 STESTN, SERRPC,TCSR 

001354 000000 


001356 016201 :"XMIT INTERRUPT WITH PRIORITY 7"° 
:"TEST# ERR PC TCSR"’ 
STESTN, SERRPC,TCSR 

001364 000000 


001366 016236 :'"CAN NOT SET BIT6 OF TCSR" 
001370 021451 :“TEST# ERR PC TCSR" 

001372 022204 sSTESTN,SERRPC,TCSR 

001374 000000 
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001376 016267 2\'CAN NOT CLEAR BIT6 OF TCSR* 
001400 021451 S"TEST# ERR PC TCSR' 

001402 022204 sSTESTN,SERRPC,TCSR 

001404 000000 


001406 016322 :\'RESET DID NOT CLEAR BIT6 OF TCSR" 
001410 021451 :"TEST# ERR PC TCSR' 

001412 022204 :STESTN, SERRPC, TCSR 

001414 000000 0 


001416 016363 ;""BIT6 OF RCSR NOT CLEAR AFTER RESET" 
001420 021523 ;"TEST# ERR PC RCSR"’ 

001422 022224 sSTESTN,SERRPC,RCSR 

001424 000000 


001426 016426 2"'RCVR INTERRUPT WITH PRIORITY 7°" 
001430 021523 ;“"TEST# ERR PC RCSR"’ 

001432 022224 ;STESTN,SERRPC,RCSR 

001434 000000 0 


001436 016465 :""CAN NOT SET BIT6 OF RCSR"’ 
001440 ;"TEST# ERR PC RCSR*’ 
001442 sSTESTN,SERRPC.RCSR 

001444 000000 


001446 016516 . :\'CAN NOT CLEAR BIT6 OF RCSR" 
001450 021523 ;"TEST# ERR PC RCSR*’ 

001452 022224 is STESTN,SERRPC,RCSR 

001454 000000 


001456 016551 7""CAN NOT CLEAR fd OF RCSR WITH RESET2 
001460 021523 ;'TEST# ERR PC RCS 

001462 022224 sSTESTN,SERRPC, ReSR 

001464 000000 


001466 016617 :‘"BIT6 OF LKS NOT CLEAR AFTER RESET" 
001470 021575 ;"TEST# ERR PC LKS" 

001472 022244 STESTN,SERRPC,LKS 

001474 000000 0 


001476 016661 7"LKS INTERRUPT WITH PRIORITY 7°° 
001500 ;TEST# ERR PC LKS"’ 

001502 :STESTN, SERRPC,LKS 

001504 000000 0 


001506 016717 :‘"CAN NOT SET BIT6 nr LKS" 
001510 021575 :“TEST# ERR PC LK 

001512 022244 STESTN,SERRPC, UKs: 

001514 000000 0 


001516 016747 :""CAN NOT CLEAR BIT6 OF LKS* 
001520 021575 :"TEST# ERR PC LKS' 

001522 022244 sSTESTN,SERRPC,LKS 

001524 000000 0 


001526 017001 ;"RESET DID NOT CLEAR BIT6 OF LkS" 
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001530 021575 :‘'TEST# ERR PC LKS'’ 
001532 022244 sSTESTN,SERRPC,LKS 
001534 000000 0 


001536 017041 :'"DUAL ADDRESSING ERROR"' 
001540 021621 ;"TEST# ERR PC GOOD BAD"’ 
001542 022254 :STESTN,SERRPC,SGDADR,$BDCSR 
001544 000000 0 


001546 017067 :\'BIT? OF LKS NOT SET AFTER RESET2 
001550 021575 :“TEST# ERR PC LKS" 

001552 022244 ;STESTN, SERRPC,LKS 

001554 000000 0 


001556 017127 3\'CAN NOT CLEAR BIT? OF LKS* 
001560 021575 ;"TEST# ERR PC LKS 

001562 022244 ;STESTN,SERRPC,LKS 

001564 000000 0 


001566 017161 :\"BIT7 OF LKS DOES NOT SET" 
001570 021575 :“TEST# ERR PC LKS"' 

001572 022244 STESTN,SERRPC,LKS 

001574 000000 0 


001576 017212 7"'RTC INTERRUPT AT PRIORITY 7°° 
001600 021575 ;“TEST# ERR PC LKS"’ 

001602 022244 sSTESTN,SERRPC,LKS 

001604 000000 0 


001606 017246 3.'RTC_ INTERRUPTS WHEN DISABLED" 
001610 021575 ;‘TEST# ERR PC LKS'"' 

001612 022244 :STESTN,SERRPC,LKS 

001614 000000 0 


001616 017303 2'RTC_INTERRUPT DID NOT OCCUR" 
001620 021575 :"TEST# ERR PC LKS" 

001622 022244 ;STESTN,SERRPC, LKS 

001624 000000 0 


001626 017303 2\'RTC_ INTERRUPT DID NOT OCCUR 
001630 021575 :"TEST# ERR PC LKS" 

001632 022244 ;STESTN,SERRPC, LKS 

001634 000000 0 


001636 017337 :‘"RTC DOUBLE INTERRUPT"' 
001640 021575 ;"TEST# ERR PC LKS" 
001642 022244 sSTESTN, SERRPC,LKS 
001644 000000 0 


001646 017364 2\'RESET DID NOT CLEAR RTC INTERRUPT" 
;“TEST# ERR PC LKS"' 
sSTESTN,SERRPC,LKS 

001654 000000 


001656 017414 7'RTC INTERRUPT DID NOT CLEAR WITH BIT? OF LKS* 
001660 021575 :"TEST# ERR PC LKS" 
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001662 
001664 


001666 
001670 
001672 
001674 


001676 
001700 
001702 
001704 


001706 
001710 
001712 
001714 


001716 
001720 
001722 
001724 


001726 
001730 
001732 
001734 


001736 
001740 
001742 
001744 


001746 
001750 
001752 
001754 


001756 
001760 
001762 
001764 


001766 
001770 
001772 
001774 


001776 
002000 
002002 
002004 


002006 
002010 
002012 
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022244 
000000 


017471 
021655 
022266 
000000 


017515 
021451 
022204 
000000 


017653 


000000 


017553 
021451 
022204 
000000 


017611 
021451 
022204 
000000 


017653 
021451 
022204 
000000 


017702 
621451 
022204 
000000 


017726 
021451 
022204 
000000 


017773 
021523 
022224 
000000 


020017 
021523 
022224 
000000 


020043 
021523 
022224 


see ~APR-78 
741 
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D110 
0 


:STESTN,SERRPC,LKS 


:“TEST# ERR PC LKS  CNT1_— CNT2"' 
sSTESTN, SERRPC,LKS,FIRST,SECND 


:""XMIT INTERRUPTS WHEN DISABLED"’ 
;‘'TEST# ERR PC  TCSR' 
;STESTN, SERRPC,TCSR 


:"'XMIT DID NOT INTERRUPT" 
:‘‘TEST# ERR PC TCSR"’ 
s$STESTN,SERRPC,TCSR 


7''XMIT INTERRUPT AT PRIORITY 7" 
;“TEST# ERR PC TCSR" 
sSTESTN,SERRPC,TCSR 


:""XMIT INTERRUPTS WITH ENABLE CLEAR" 
;‘'TEST# ERR PC TCSR" 
sSTESTN, SERRPC,TCSR 


:"“XMIT DID NOT INTERRUPT" 
:"TEST# ERR PC TCSR" 
;STESTN, SERRPC,TCSR 


:'"XMIT RE-INTERRUPTED"' 
:"TEST# ERR PC TCSR" 
sSTESTN,SERRPC,TCSR 


;"LOADING TBUF e ~ CLEAR INTERRUPT’ 
S 


:"TEST# ERR PC 


sSTESTN,SERRPC,TCSR 


:""RCVR ACTIVE NOT SET" 
;TEST# ERR PC RCSR" 
sSTESTN, SERRPC,RCSR 


;""RECEIVER DONE NEVER SET" 
“TEST# ERR PC RCSR™ 
sSTESTN,SERRPC,RCSR 


z\'RCVR ACTIVE NOT CLEARED WITH DONE SET2 
:"TEST# ERR PC RCSR' 
sSTESTN,SERRPC,RCSR 


SEQ 0022 
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002014 000000 


002016 020111 3'RESET DID NOT CLEAR RCVR DONE" 
002020 021523 :"TEST# ERR PC RCSR" 

002022 022224 sSTESTN,SERRPC,RCSR 

002024 000000 


002026 020147 :\"RDR ENABLE SET DID NOT CLEAR RCVR DONE"’ 
002030 021523 :"TEST# ERR PC RCSR’ 

002032 022224 > STESTN,SERRPC,RCSR 

002034 000000 0 


002036 020212 2\'READING RBUF DID NOT CLEAR RCVR DONE"’ 
002040 021523 :"TEST# ERR PC RCSR" 

002042 022224 sSTESTN,SERRPC,RCSR 

002044 000000 


002046 020257 7'RCVR INTERRUPTS WITH ENABLE CLEAR" 
002050 :“TEST# ERR PC RCSR" 

002052 sSTESTN, SERRPC,RCSR 

002054 000000 


002056 020426 :""RCVR DID NOT INTERRUPT"’ 
002060 021523 :“TEST# ERR PC RCSR*’ 
002062 022224 :STESTN,SERRPC,RCSR 
002064 000000 


002066 020321 2'RCVR INTERRUPTS AT PRIORITY 7° 
002070 021523 :‘"TEST# ERR PC RCSR"’ 

002072 022224 sSTESTN,SERRPC,RCSR 

002074 000000 0 


002076 020357 :\"RCVR INTERRUPT REQUEST PASSED WITH ENABLE CLEAR" 
002100 021523 :“TEST# ERR PC RCSR" 

002102 022224 sSTESTN,SERRPC,RCSR 

002104 000000 0 


002106 020426 :""RCVR DID NOT INTERRUPT"' 
002110 021523 :"TEST# ERR PC RCSR" 
002112 022224 7; STESTN,SERRPC,RCSR 
002114 000000 


002116 020455 2.'RECEIVER RE~INTERRUPTED" 
002120 021523 :UTEST# ERR PC RCSR" 
002122 022224 sSTESTN,SERRPC,RCSR 

002124 000000 


002126 020501 :""READING RBUF DID NOT CLEAR INTERRUPT 
002130 ;“TEST# ERR PC RCSR" 

002132 sSTESTN,SERRPC,RCSR 

002134 000000 0 


002136 020546 ;"RESET DID NOT spe RCVR INTERRUPT" 
002140 021523 D :"TEST# ERR PC RCSR 

002142 022224 STESTN, SERRPC RCSR 

002144 000000 0 
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002146 
002150 
002152 
002154 


002156 
002160 
002162 
002164 


002166 


002174 


002176 
002200 
002202 
002204 


002206 
002210 
002212 
002214 


002216 
0C2220 
002222 
002224 


002226 
002230 
002232 
002234 


002236 


002244 
002246 


002254 


002256 
002260 
002262 
002264 


002266 
002270 
002272 
002274 
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020611 
021523 
022224 
000000 


020637 
021523 
022224 
000000 


020676 
021722 
022302 
000000 


020734 
021523 
022224 
000000 


020771 
021757 
022314 
000000 


021014 
021757 
022314 
000000 


021052 
021523 
022224 
000000 


021104 
022023 
022330 
000000 


021134 
021757 
022314 
000000 


021174 
022067 
022344 
000000 


021211 


000000 


Peal 78 
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7'""OR FLAG DID NOT SET’’ 
sSTESTN,SERRPC,RCSR 


;""*ERROR' NOT SET WITH "OR* FLAG" 
:"TEST# ERR PC RCSR"’ 
sSTESTN,SERRPC,RCSR 


;"BREAK DID NOT TRANSM! ALL ZEROES" 


"TEST# ERR PC RCSR DATA’ 


sSTESTN,SERRPC,RCSR,S$BDDAT 


;"BREAK DID NOT SET FRAMING ERROR"’ 
:"TEST# ERR PC RCSR" 
sSTESTN,SERRPC,RCSR 


:"'DATA COMPARE ERROR’ 
:“TEST# ERR PC RCSR GOOD BAD" 
i STESTN,SERRPC,RCSR,GD,BD 


:""DATA COMPARE ERROR WITH CABLE" 
:‘‘TEST# ERR PC RCSR GOOD BAD*’ 
;STESTN, SERRPC,RCSR,GD,BD 


;""TIMEOUT IN getty TEST" 
:"TEST# ERR PC RCSR' 
STESTN,SERRPC,RCSR 


;"INCORRECT RECEIVE COUNT 
:"TEST# ERR PC RCSR TRANS RCV" 
;STESTN, SERRPC,RCSR,XMTCNT ,RCVCNT 


:'"DATA COMPARE ERROR IN EXERCISER" 
:"TEST# ERR PC RCSR GOOD BAD"’ 
sSTESTN, SERRPC,.RCSR,.GD,BD 


7""TRAP CATCHER" 
:"TEST# ERR PC RCSR  OLDPC TRAP ADR" 
;STESTN, SERRPC.RCSR,OLDPC ,BDVECT 


7""NO CLK INTERRUPT IN EXERCISER" 
:"TEST# ERR PC LKS" 
;STESTN, SERRPC,LKS 


SEQ 0024 
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002276 021247 ;"""ERROR' NOT SET WITH 'FR° FLAG" 
002309 021523 :“TEST# ERR PC RCSR"’ 

002202 022224 sSTESTN,SERRPC,RCSR 

002364 000000 


002306 021306 sRCV ACTVIE NOT CLEAR WITH INIT 
002310 :“TEST# ERR PC RCSR"’ 

002312 :STESTN, SERRPC,RCSR 

002314 000000 


002316 021345 :RCV ACTIVE WITHOUT ‘'START"’ BIT 
002320 021523 :"TEST# ERR PC RCSR" 

002322 022224 ; STESTN, SERRPCRCSR 

002324 000000 0 


002326 021404 7RDR ENABLE NOT CLEAR WITH RCV ACTIVE 
002330 021523 :‘'TEST# ERR PC RCSR*’ 

002332 022224 ;STESTN, SERRPCRCSR 

002334 000000 0 


002336 000000 CTSTFL: 
002340 000000 : 

002342 000000 
002344 000000 


;CONSLE UNDER TEST FLAG 
: TEMP LOCATION FOR TABLE OFFSETS 
: TEMP LOCATION FOR DEVICE COUNT 
: D LOCATION FOR DEVICE MAP BIT TEST MASK 

;REGISTER AND VECTOR ADDRESSES FOR THE DL-11W UNDER TEST 

002346 000000 RCSR:  .WORD 
RBUF: .WORD 
: WORD 
- WORD 
- WORD 
- WORD 
: WORD 
002364 000000 : - WORD 


CONSOLE REGISTER AND VECTOR ADDRESSES FOR THE DL-11W 


002366 177560 CRCSR: 177560 ADDRESS OF RECEIVER COMMAND/STATUS REGISTER 
CRBUF : ADDRESS OF RECEIVER BUFFER 
CTCSR: ADDRESS OF TRANSMITTER COMMAND/STATUS REGISTER 
CTBUF : ;ADDRESS OF TRANSMITTER BUFFER 
bs a RECEIVER INTERRUPT VECTOR 
CTVECT: ; TRANSMITTER INTERRUPT VECTOR 

002404 000066 CTPSW: 


:REAL TIME CLOCK REGISTER AND VECTOR ADDRESSES 
002406 177546 LKS: ~WORD 177546 

002410 000100 RTCVT: .WORD 

002412 000102 RTCPSW: .WORD 


002414 000020 ADRTBL: .BLKW 
002454 000020 VCTTBL: .BLKW 


oooooooo mcCooo°o 


04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
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SUBROUTINE TO GENERATE DEVICE ADDRESS TABLE 


002514 012702 002414 DEVADR: MOV #ADRTBL ,R2 :POINT R2 TO THE DEVICE ADDRESS TABLE 
001142 MOV ;LOAD BASE DEVICE ADDRESS IN RO 


R ; 
000170 : ;POINT R1 TO LAST DEVICE ADDRESS 
18: sMOVE DEVICE ADDRESS TO TABLE 
000010 0 :POINT RO TO NEXT DEVICE ADDRESS 
sFINISHED GENERATING TABLE? 
;BR, IF LAST DEVICE ADDRESS NOT LOADED 


4 Ss os 4 ss 


a tt ad ed 


002544 000207 


002546 005037 001070 SFATAL :CLEAR ERROR NO. 
SMSGTYP CLEAR MESSAGE TYPE 
STESTN CLEAR TEST NO. 
CTSTFL CLEAR CONSOLE UNDER TEST FLAG 
SDEVCT CLEAR DEVICE COUNT 
$UNIT ;CLEAR UNIT NUMBER 
001112 SUSUR 21S SUSWR LOADED? 
1$ :BR IF YES 
000400 001112 #400, SUSUR ELSE, DEFAULT TO $USWR=400 
000006 000004 : #6,a84 INITIALIZE TIMEOUT VECTORS TO TRAP 
002620 012737 000003 000006 #3,a#6 ; CATCHER ROUTINE 


INITIALIZE THE COMMON TAGS 
THE COMMON TAGS (SCMTAG) AREA 
002626 012706 001000 MO #SCMTAG,R6 :;FIRST LOCATION TO BE CLEARED 
002632 (R6)+ ::CLEAR MEMORY LOCATION 
002634 001040 #SWR,R6 ;;DONE? 
002640 -~6 ;;LOOP BACK IF NO 
002642 012706 001000 MOV #1000,SP :;SETUP THE STACK POINTER 
se INITIALIZE A FEW VECTORS 
002646 012737 013000 000020 MOV #SSCOPE ,Q#IOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
#340 ,a#1OTVEC+2 ;;LEVEL 7 
#SERROR ,Q#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
#340 a#EMTVEC+2 ;:LEVEL 7 
#STRAP ,@#TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
#340 ,Q@#TRAPVEC+2;LEVEL 7 
#SPWRON,@#PWRVEC ;;POWER FAILURE VECTOR 
#340 ,a#PWRVEC+2 ;;LEVEL 7 
012124 SENDCT,SEOPCT ;;SETUP END-OF-PROGRAM COUNTER 
SESCAPE 7;CLEAR THE ESCAPE ON ERROR ADDRESS 
001015 #1, SERMAX :;ALLOW ONE ERROR PER TEST 
001006 #.,SLPADR :; INITIALIZE THE LOOP ADDRESS FOR SCOPE 
002754 012737 002754 001010 MOV #.,SLPERR ;;SETUP THE ERROR LOOP ADDRESS 
s3SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
szEQUAL TO A ‘'=1"", SETUP FOR A SOFTWARE SWITCH REGISTER. 
002762 013746 000004 MO @#ERRVEC,-(S?) ;;SAVE ERROR VECTOR 
000004 #64$,aMERRVEC ;;SET UP ERROR VECTOR 
001040 #OSWR, SWR :;SETUP FOR A HARDWARE SWICH REGISTER 
001042 #DDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
177777 +=176022 #-1,aSWR 7; TRY TO REFERENCE HARDWARE SWR 
003016 001012 668 ;;BRANCH IF NO TIMEOUT TRAP OCCURRED 
:;AND THE HARDWARE SWR IS NOT = -1 


AQMMNMMNn nun e 


o> 
BWNAMEWNM |S OWNAN EWN |S ODNOUEWN (OO DNAURWN OO OMDMNAURWR OOO 


; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SS a a 
© OO OO OO CO CO OO OD OD OD 00 00 09 09 09 CO NII YN NNN NA AAADAARH 
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MACYT1 30A(1052) 


CZDLDC.P11 


003020 


003044 
003050 


003140 
003142 


003264 
003266 


003314 


19-APR-78 1 
000403 
012716 
000002 
012737 
012737 
012637 
005037 
132737 
001403 
012737 


032777 


001052 
004737 


000415 
005037 


004737 


—- 


003030 
000176 
000174 
000004 


001074 
000200 


007110 
000020 
002336 
004056 
000001 
000200 
000040 
002514 
002342 
001144 
000004 
003212 
001142 
000160 


001144 


001142 


002366 
003260 


001144 
002342 
000004 


002342 
001144 


002342 


002514 


001040 
001042 


001107 


001040 


175740 


001106 


001107 
175700 


000004 


000004 


643: 
65$: 
66$: 


67$: 


INIT: 


MANL : 


SIZE: 


3$: 


4$: 


5$: 


APTS2ZD: 
TSTDVM: 


1$: 


DVADT: 


11:44 PAGE 27 
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INITIALIZE THE COMMON TAGS 


SEQ 0027 


65$ ;;BRANCH IF NO TIMEOUT 
#65$, (SP) ;;SET UP FOR TRAP RETURN 
#SWREG, SUR :;POINT TO SOFTWARE SwWR 
#DISPREG, DISPLAY 
(SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 
SPASS ;CLEAR PASS COUNT 
#APTSIZE,SENVM :ITEST USER SIZE UNDER APT 
67$ 7:YES,USE NON-APT SWITCH 
#SSWREG,SWR ::NO,USE APT SWITCH REGISTER 
#BIT4,aSwR TEST CLOCK ONLY? 
INIT :BR IF NOT 
CTSTFL sELSE, SET CONSOLE TEST FLAG TO ENABLE CLOCK TESTS 
1D ; AND JUMP TO TYPE PROGRAM ID 
— SENV :CHECK IF ON APT 
MAN :BR IF NOT APT 
rB1T7, SENVM :D1D APT SIZE 

TSZD 7BR, IF APT SIZED 
malt, ——— sWAS ‘‘SDEVM'’ MANUALLY SET? 
APTS2Z IF YES, SKIP SELF-SIZING 
PC ,DEVADR GENERATE DEVICE ADDRESS TABLE 
TMP2 :CLR TEMP LOCATION TO KEEP DEVICE COUNT 
SDEVA :CLEAR DEVICE MAP 
a#4 ,R3 SAVE TIMEOUT VECTOR 
#43084 SET TIMEOUT POINTER 
SBASE ,RO ;LOAD BASE ADDRESS 
#160,R0 ;POINT RO TO UNIT #15 (UNIT#O=CONSOLE) 
(RO) sCHECK FOR DEVICE EXISTANCE 
SDEVM s INDICATE DEVICE EXISTANCE IN DEVICE MAP 
TMP2 ; INCREMENT DEVICE COUNT 
#1000,SP sRESET STACK POINTER 
SDEVA ;ADJUST DEVICE MAP FOR NEXT UNIT CHECK 
#10,R0 ;POINT RO TO NEXT DEVICE NUMBER 
SBASE ,RO FINISHED SIZING? 

:BR, IF BASE ADDRESS HAS NOT BEEN CHECKED 

CRCSR,RO ;LOAD CONSOLE DEVICE ADDRESS 
#5$,a84 SET UP TIMEOUT POINTER 
(RO) ; TEST FOR CONSOLE EXISTANCE 
SDEVM : INDICATE CONSOLE EXISTANCE IN DEVICE MAP 
TMP2 : INCREMENT DEVICE COUNT 
R3,a#4 RESTORE TIMEOUT VECTOR 
VCTADR :BR TO GENERATE VECTOR ADDRESS TABLE 
TMP2 ;CLEAR TEMP LOCATION TO KEEP DEVICE CNT 
SDEVM,R2 ;MOVE DEVICE MAP TO R2 
R2 TEST MSB OF DEVICE MAP 
1$ BR, IF MSB IS ZERO 
TMP2 ; INCREMENT DEVICE COUNT, IF MSB=1 
R2 SHIFT NEXT BIT INTO MSB POSITION 
DVADT :BR, IF NO OTHER BITS ARE SET IN SDEVM 
TSTOVM CONTINUE CHECKING SDEVM, IF MORE BITS SET 
PC,DEVADR ;GENERATE DEVICE ADDRESS TABLE 


. @ 
11:44 PAGE 2 SEQ 0028 


8 
INITIALIZE THE COMMON TAGS 
;GENERATE VECTOR ADDRESS TABLE 


MACY11 30A(1052) 
19-APR-78 1 


-MAIN. 
CZDLDC.P11 


wee 
1:41 


003320 


003352 


003354 


003420 


003424 
003432 
003436 
003444 
003446 
003450 
003454 
003460 
003464 
003466 
003472 
003474 


003500 


003526 


003530 
003534 
003540 


012702 


003773 


013700 


010137 


052737 


000137 


033737 
001010 
006337 
062737 
005237 
000764 


005237 
006337 
013702 


002454 
001136 
177400 
000170 


000010 


002342 


000060 
000020 
022154 
000002 


002340 
000001 


002336 
002366 
002346 


002364 
003622 


002344 


002344 
000002 
001100 


001100 
002344 
002340 


002344 
001144 


001144 


002340 


VCTADR: MOV 
MOVB 


#VCTTBL,R2 
a#$VECT1,RO 
#177400,R0 
RO,R1 
#170,R1 

RO, (R2)+ 
#10,R0 
RO,R1 

1$ 


~ tee 


R1,M2A 


th te TAPS 


#BITO,SDEVM 
TCONS 
TSTDEV 
CTSTFL 
#CRCSR,RO 
#RCSR,R1 
(RO)+,(R1)+ 
#TPSW,R1 

1$ 

TST1 


GET LOCATION OF VECTOR TABLE 
:COPY BASE VECTOR 
:CLEAR BYTE SIGN EXTENSION 


;POINT R1 TO LAST DEVICE VECTOR 
:PUT VECTOR ADDRESS IN TABLE 
;POINT RO TO NEXT VECTOR ADDRESS 
FINISHED GENERATING VECTOR TABLE? 
BR, IF LAST VECTOR IS NOT LOADED 


s;MOVE DEVICE COUNT INTO DEVICE COUNT MESSAGE 


:COPY DEVICE COUNT INTO RO 

:CLEAR AUXILARY REGISTER 

;PUT DEVICE COUNT IN UPPER BYTE OF RO 
;MOVE MSB OF COUNT INTO 

3MSB OF RO 

PUT MSB OF COUNT INTO CARRY 

;MOVE MSB OF COUNT INTO R1 

sMOVE NEXT a TO CARRY 


;MOVE INTO 

:MOVE LAST BIT OF DIGIT 

INTO R1 

:CONVERT DIGIT TO ASCII 

;MOVE DIGIT TO UPPER BYTE 

oF tat DIGITS BEEN MOVED TO R1? 
sMOVE DEVICE COUNT TO OUTPUT MESSAGE 


SET UP BIT MASK TO TEST SDEVM FOR DEVICES EXCEPT CONSOL 
;CLEAR LOCATION TO STORE TABLE OFFSETS 

;1S CONSOLE TO BE TESTED? 

:BR, IF CONSOLE IS TO BE TESTED 

:BR, TO TEST OTHER DEVICES 

: INDICATE CONSOLE UNDER TEST 

SET UP CONSOLE DEVICE ADDRESSES 

POINT R1 TO UUT ADDRESS TABLE 

; TRANSFER CONSOLE ADDRESSES 


. 
o 


ea 


BR, IF 


N 
:GO TEST CONSOLE INTERFACE 


;PREPARE ADDRESSES AND — FOR UUT 
BIT TMP3,SDEVM 


TSTDEV: 


SETADR: 
A 


TMP1,R2 


eae ter IF DEVICE IS TO BE TESTED 
SHIFT MASK TO CHECK NEXT SDEVM BIT 
; INCREMENT TABLE INDEX 


: INCREMENT UNIT NUMBER 
:GO TEST NEXT BIT OF DEVICE MAP 


; UPDATE UNIT NUMBER 
UPDATE DEVICE MAP TEST MASK 
MOVE TABLE OFFSET TO R2 
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003544 062737 000002 002340 #2,TMP1 ;UPDATE TABLE OFFSET FOR NEXT DEVICE 
002414 ADRTBL(R2),RO ;PUT UUT ADDRESS INTO RO 
002346 1 POINT R1 TO STORAGE AREA FOR UUT ADDRESSES 
; TRANSFER UUT ADDRESS 
000002 ;POINT TO NEXT UUT REGISTER 
000006 FINISHED TRANSFER? 
003574 001372 :BR, IF NOT 


003576 016200 002454 VCTTBL(R2),RO  ;PUT UUT VECTOR INTO RO 

003602 010021 RO,(R1)+ ; TRANSFER UUT VECTORS TO ACTIVE TABLE AREA 
003604 062700 000002 #2,RO0 :POINT TO NEXT VECTOR 

003610 030027 000006 RO, #6 :FINISHED TRANSFER? 

003614 001372 VECT :BR, IF NOT 


F 
003616 000137 003622 TST1 :GO TEST DEVICE 
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SCRE REE EEE EEE EEE EERE EEE EEE EERE ERR 
S*TEST 1 TEST ABILITY TO REFERENCE TCSR 
DRE EERE REET ERA EAE KERR EK EK 
003622 000004 S11: 
000004 a#4,R3 ;SAVE TIMEOUT VECTOR 
003644 000004 #1$,a84 :SET UP TIMEOUT VECTOR 
176510 aTcsR :REFERENCE THE XMIT COMMAND/STATUS REG. 
003642 000412 4$ ; GO TO END OF TEST 


003644 022626 : (SP)+, (SP) + sRESTORE SP AFTER TIMEOUT 
005737 002336 CTSTFL :CHECK IF DEVICE IS CONSOLE 
001002 2$ IF YES, SKIP ERROR TYPEOUT 
104001 1 REPORT ERROR TO APT & TTY 
000404 4$ :BR TO END OF TEST 


004737 013170 PC, SATY4 :;ONLY REPORT A FATAL ERROR 
aeset 1 :: THE ERROR NUMBER (FROM APT LIST) 
003670 010337 000004 R3,a#4 ;RESTORE TIMEOUT VECTOR 


SEE EAE EERE EERE EEE EERE REE EEE EEE EEE 


T*TEST 2 TEST ABILITY TO REFERENCE TBUF 


nett PPP PPR RRR RRR RR RRRRARR EAR EAAASEASA SESE EASES SESE LESSEE SESS SS 


003674 000004 TST: 
3 000004 SAVE TIMEOUT VECTOR 
003716 000004 SET UP TIMEOUT VECTOR 
176440 REFERENCE THE XMIT BUFFER 
003714 000412 :GO TC END OF TEST 


003716 022626 : (SP)+,(SP)+ RESTORE SP AFTER TIMEOUT 
005737 002336 CTSTFL :CHECK IF DEVICE IS CONSOLE 
001002 2$ IF YES, SKIP ERROR TYPEOUT 
104002 2 ;REPORT ERROR TO APT & TTY 
000404 B 4$ 7BR TO END OF TEST 


004737 013170 PC, SATY4 ::ONLY REPORT A FATAL ERROR 
900002 2 >: THE ERROR NUMBER (FROM APT LIST) 
003742 010337 000004 , R3,a#4 :RESTORE TIMEOUT VECTOR 





-MAIN, 


MACY11 eoaeee os 
19-APR-78 1 


CZDLDC.P11 


003746 
003750 
003754 
003760 


003762 
003766 
003772 


003774 


004030 
004032 


004054 


004056 


004122 


000004 
005077 
105777 
100016 


005077 
105777 
100011 


005737 
001002 
104003 
000404 


004737 
000003 
000000 
005000 
105777 
100414 
005200 
001373 


005737 
001002 
104004 
000405 


004737 
000004 
000000 
000424 


023737 
001412 


001402 
000137 


PAGE 31 


F 


SEQ 0031 


TEST ABILITY TO REFERENCE TBUF 


—MABRBASRARARBASAARAAALAASAALELASAAASEASAAS SEES SESE SESE EASE REESE SES SY 


TEST THAT TCSR BIT7(DONE) CLEARS WHEN XBUF IS LOADED 


FREER ERE EERE ERE EERE EERE ERE AEEREKEEEEE 


TEST 3 
T3: SCOPE 
C 


~ el 78 11:44 
T2 
: 
is 
176400 
176372 
176366 
176360 
002336 
1$: 
013170 
2$: 
3$: 
176326 4$: 
002336 
5$: 
013170 
000042 000046 ID: 
001074 
001076 
000020 174720 6$: 
005056 


aTBUF 
aTCSR 
3$ 


aTBUF 
aTCSR 
3$ 
CTSTFL 
1$ 


3 
2$ 


PC, SATY4 


CTSTFL 
5$ 


4 
ID 


PC, SATY4 
TST4 


a#42 ,a#46 
6$ 
SPASS 


6$ 
$DEVCT 
6$ 


#BIT4,aSwWR 
TST4 
TCLOCK 


;LOAD XBUF 

; CHECK DONE 

BR IF CLEAR 

sFILL SECOND BUFFER, BECAUSE REFRESH COULD CAUSE 
; FIRST TEST TO FAIL 

FILL DOUBLE BUFFER 

:CHECK DONE 

;BR IF CLEAR 


:CHECK IF DEVICE IS CONSOLE 

IF YES, SKIP ERROR TYPEOUT 
;DONE NOT CLEARED WITH TBUF FULL 
3BR TO END OF TEST 


sONLY REPORT A FATAL ERROR 

;THE ERROR NUMBER (FROM APT LIST) 
:TCSR DONE" NOT CLEARED WITH TBUF FULL 
;CLEAR TIMER 
:CHECK FOR XMIT DONE 
:1F DONE SETS, BR TO END OF TEST 
: INCREMENT TIMER 
:BR IF TIMER NOT DONE 


CHECK IF DEVICE IS CONSOLE 


;TCSR ‘‘DONE'’ DOES NOT SET 
:BR TO END OF TEST 


;;ONLY REPORT A FATAL ERROR 
;;THE ERROR NUMBER (FROM APT LIST) 


;BR TO NEXT TEST, AND SKIP THE TYPEOUT THAT FOLLOWS 
; BECAUSE OF THIS FAILURE 


;UNDER ACT11? 

:1F YES, SKIP IDENT. TYPEOUT 

1S THIS THE FIRST PASS? 

;1F NOT BR TO NEXT TEST & SKIP THE IDENTIFICATION TYPEQU 
:1S THIS THE FIRST SUBPASS? 

7 1F NOT, BRTO NEXT TEST 

TYPE PROGRAM INDENTIFICATION 


; TYPE NUMBER OF DEVICES UNDER TEST 
:CLOCK TEST ONLY? 
NOT 


:BR IF NO 
sELSE, JUMP TO TEST CLOCK 
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Wee RRRASAASBAARARBRAAARARARAASLALASAASAARARASSAAEASLESESSAEEE SELES ESAS SS SS | 


s*TEST 4 TEST THAT TCSR ‘‘DONE’' SETS WITH RESET 
PRA RRA RARER A ATER EERE TREE TREE REE REE EERE EEE 
004126 000004 TST4: 
004130 176220 CL ;LOAD TRANSMIT BUFFER 
004134 176212 1$: ;WAIT FOR DONE 
004140 
004142 176206 ;LOAD SECOND BUFFER 
004146 
004150 :CLEAR DONE WITH RESET 
004152 176174 ;CHECK FOR DONE SET 
004156 100401 ;BR TO NEXT TEST IF DONE SET 


004160 104005 ERROR ;TCSR “‘DONE'’ DOES NOT SET WITH RESET 


ESS SCSI r tere r irri rrr ir irri iii iii i titi i titi iti i titi tii 
s*TEST 5 TEST ABILITY TO ACCESS RCSR 
PEC SSeS eStore titre i ict iri ret ti tire citi titi titi it iii itis iit 
004162 000004 TST5: SCOPE 
004164 013703 000004 MOV a#4 ,R3 ;SAVE TIMEOUT VECTOR 
004170 012737 004204 000004 MOV #1$,a0#4 ;SET UP TIMEOUT VECTOR 
004176 005777 176144 TST aRCSR ACCESS RCSR 
004202 000402 BR 2$ :BR TO END OF TEST 


004204 022626 : CMP (SP)+,(SP)+ sRESTORE SP AFTER TIMEOUT 
004206 104006 ERROR 6 ;CAN NOT ACCESS RCSR 
004210 010337 000004 : MOV R3,a#4 ;RESTORE TIMEOUT VECTOR 
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ESP PPP PARR PRADA RRR RAR ASAR RRL AAR ARRAS SALAS EELS ESE R ESSA SALE RSE SSS 
TEST 6 TEST ABILITY TO ACCESS RBUF 
STREETER EEE EEE EAE EEE REE EEE EEE RARER KEKE EE 
004214 000004 TST6: 
004216 013703 000004 a#4 ,R3 ;SAVE TIMEOUT VECTOR 
004222 012737 004236 000004 #1$,aK4 ;SET UP TIMEOUT VECTOR 
004230 005777 176114 aRBUF ;ACCESS RBUF 
004234 000402 2$ ;BR TO END OF TEST 


004236 022626 : (SP)+,(SP)+ RESTORE SP AFTER TIMEOUT 
004240 104007 7 CAN NOT ACCESS RBUF 
004242 010337 000004 : R3,a#4 ;RESTORE TIMEOUT VECTOR 
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ESC eS etter ite e teri t ili rir iri titi i titi ri tititiiiiti ti iti iit itt 
s*TEST 7 TEST THAT BITO(BREAK BIT) CAN BE SET & CLEARED & RESET 
POE Se STIS I SSC iti ri lel ii eet ete tiie i te irtt iii titi tit iti titi tite) 
004246 000004 TST?7: 
000400 174562 #BIT8,aSwWR 1S BREAK FUNCTION ENABLED? 
TST11 ;BR TO NEXT TEST, IF NOT 
;CLEAR EVERYTHING 
000061 176062 ‘inate ;CHECK BITO OF TCSR CLEAR 


;BR IF CLEAR 
002336 ita 


11 ;BITO WAS NOT CLEAR AFTER RESET 
000404 3$ 


004737 013170 PC, SATY4 ::ONLY REPORT A FATAL ERROR 
000011 ::THE ERROR NUMBER (FROM APT LIST) 
004312 000000 
004314 052777 000001 176030 38: #BITO,aTCSR :SET BITO IN TCSR 
004322 032777 000001 176022 #BITO.aTCSR “TEST BITO OF TCSR 
004330 001001 4$ [BR IF SET 
004332 104012 12 :BITO OF TCSR WILL NOT SET 


004334 042777 000001 176010 : #BITO,aTCSR ;CLEAR BITO OF TCSR 


004342 032777 000001 176002 #BITO,aTCSR ; TEST BITO OF TCSR 
001411 7$ i 
005737 002336 
001002 
104013 :B1TO OF TCSR WILL NOT CLEAR 
000404 


004737 013170 PC, SATY4 ::ONLY REPORT A FATAL ERROR 
000013 >:THE ERROR NUMBER (FROM APT LIST) 
004372 000000 


004374 052777 000001 175750 : #BITO,aTCSR :SET BITO IN TCSR 

004402 000005 CLEAR BITO WITH RESET 

004404 032777 000001 175740 #BITO,aTCSR TEST BITO CLEAR 

004412 001467 TST11 :BR IF CLEAR 

904414 042777 000001 175730 #BITO,aTCSR :CLEAR BITO, TO PRINT ERROR 
004422 104014 14 ;RESET DID NOT CLEAR BITO OF TCSR 
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SPER RRA EEE REE A ARERR EAREERKAKEEEKEEE 
:*TEST 10 TEST THAT BIT2(MAINT. BIT) CAN BE SET & RESET 
SPREE EERE EEE EEE ERE EEE EEE E EERE EE 
004424 000004 TST10: 
004426 000005 :CLEAR EVERYTHING 
004430 032777 000004 175714 #B1T2,aTCSR :TEST FOR BIT2 OF TCSR CLEAR 
004436 001411 3$ :BR IF CLEAR 


004440 005737 002336 CTSTFL ;CHECK IF DEVICE IS CONSOLE 

004444 001002 1$ :1F YES, SKIP ERROR TYPEOUT 

004446 104015 15 ;B1T2 OF TCSR NOT CLEAR AFTER RESET 
004450 000404 3$ 


004452 : 

004452 004737 013170 PC, SATY4 :;ONLY REPORT A FATAL ERROR 
004456 000015 3; THE ERROR NUMBER (FROM APT LIST) 
004460 000000 


004462 052777 000004 175662 : #BIT2,aTCSR SET BIT2 OF TCSR 

004470 032777 000004 175654 #BIT2,aTCSR ; TEST FOR BIT2 SET 

004476 001001 4$ :BR IF SET 

004500 104016 16 :B1T2 OF TCSR WILL NOT SET 


004502 042777 000004 175642 : #BIT2,aTCSR CLEAR BIT2 OF TCSR 


004510 032777 000004 175634 ? #B1T2,aTCSR TEST BIT2 CLEAR 
004516 001411 7$ ;BR IF CLEAR 


004520 005737 002336 CTSTFL :CHECK IF DEVICE IS CONSOLE 
001002 5$ :1F YES, SKIP ERROR TYPEOUT 
104017 17 
000404 B 7$ 


004737 013170 PC, SATY4 ;:ONLY REPORT A FATAL ERROR 
000017 3; THE ERROR NUMBER (FROM APT LIST) 
004540 000000 : ;BITO OF TCSR WILL NOT CLF4R 


004542 052777 000004 175602 : #B1T2,aTCSR :SET BIT2 OF TCSR 

004550 000005 sCLEAR BIT2 WITH RESET 
004552 032777 000004 175572 #BIT2,aTCSR ;TEST FOR BIT2 CLEAR 

004560 001461 TST12 IF CLEAR, GO TO NEXT TEST 
004562 042777 000004 175562 > eee :CLEAR BIT2, TO PRINT ERROR 


004570 104020 
RESET DID NOT CLEAR BIT2 OF TCSR 
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TEST THAT BIT2(MAINT. BIT) CAN BE SET & RESET 


STREETER ARERR EEE 


s*TEST 11 TEST THAT BIT6(XMIT INT EN) CAN BE SET & RESET 


Pe SOA Ai SSARAARARASBASARASASLAARAASAAALAELALASALASE SESE SESE SESE SEES SES SS 


004626 
004630 


004632 
004634 


004636 
004644 
004652 


004654 


004656 
004664 
004672 
004674 


004676 
004704 
004706 
004714 


004716 
004720 


000004 


104021 
000402 


022626 
104022 


052777 
032777 
001001 


104023 


042777 
032777 
001401 
104024 


052777 
000005 
032777 
001401 


104025 
010377 


175560 
004632 
012242 


000100 


000100 
000100 


000100 
000100 


000100 
000100 


175436 


175552 


175526 


175466 
175460 


175446 
175436 


TST11: 


aTVECT,R3 
#1$,aTVECT 
PC,WRPSW 
WORD 340 
#B1T6,aTCSR 
2$ 
21 
2$ 
(SP)+,(SP)+ 
22 


#BIT6,aTCSR 
* ‘cca 


23 


#5TT6,aTCSR 
#BIT6,aTCSR 
4$ 
24 
#BIT6,aTCSR 


#BIT6,aTCSR 
5$ 


25 
R3,aTVECT 


; CLEAR EVERYTHING 

SAVE XMIT VECTOR 

:SET UP INTERRUPT VECTOR FOR ERROR REPORT 
SET PSW TO PRIORITY=7 


: TEST BIT6 OF TCSR 
:BR IF ZERO 


;BIT6 IN TCSR NOT CLEAR AFTER RESET 


RESTORE SP AFTER INTERRUPT 
:XMIT INTERRUPT OCCURRED PRIO=7 


SET BIT6 OF TCSR 
TEST BIT6 OF TCSR 
:BR, IF SET 


CANNOT SET BIT6 OF TCSR 


;CLEAR BIT6 OF TCSR 
TEST BIT6 OF TCSR 
BR IF CLEAR 


CANNOT CLEAR BIT6 OF TCSR 


SET BIT6 OF TCSR 
:CLEAR BIT6 WITH RESET 
TEST BIT6 OF TCSR 

;BR IF CLEAR 


:CANNOT CLEAR BIT6 OF TCSR WITH RESET 
RESTORE XMIT VECTOR 
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STARA REE EEE TERETE EERE RETA EARS 


s*TEST 12 TEST THAT BIT6 OF RCSR CAN BE SET & RESET 


PESTS ICICI C Tilia tilts lite t et it iit i titi tit it titi t atti titi titi tT 
004724 000004 TST12: 
;CLEAR EVERYTHING 
175422 @RVECT,RS ;SAVE RECEIVE VECTOR 
004764 175414 #1$,aRVECT :SET UP INTERRUPT VECTOR FOR ERROR REPORT 
012242 PC ,WRPSW ;SET PSW TO PRIORITY=7 
-WORD 340 
000100 175370 emu TEST BIT6 OF RCSR 
004760 104026 26 
004762 000402 2$ 
004764 022626 3 (SP)+, (SP)+ RESTORE SP AFTER INTERRUPT 
004766 104027 27 
;RCVR INTERRUPT WITH PRIORITY=7 
004770 052777 000100 175350 : #BIT6,aRCSR SET BIT6 OF RCSR 
004776 032777 000100 175342 #BI1T6,aRCSR ; TEST BIT6 OF RCSR 
005004 001001 3$ :BR, IF SET 


005006 104030 30 


:BI1T6 OF RCSR NOT CLEAR AFTER RESET 


CANNOT SET BIT6 OF RCSR 


005010 042777 000100 175330 : #B1T6,aRCSR CLEAR BIT6 OF RCSR 
005016 032777 000100 175322 #BIT6,aRCSR TEST BIT6 OF RCSR 
005024 001401 4$ BR, IF CLEAR 


005026 104031 31 


; CANNOT CLEAR BIT6 OF RCSR 


005030 052777 000100 175310 : #B1T6,aRCSR SET BIT6 OF RCSR 
CLEAR BIT6OF RCSR WITH RESET 
000100 175300 #BI1T6,aRCSR TEST BIT6 OF RCSR 
005046 001401 5$ BR, IF CLEAR 


005050 104032 32 
:CANNOT CLEAR BIT6 OF RCSR WITH RESET 
005052 010377 175300 : R3,@RVECT RESTORE RECEIVE VECTOR 
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m 3 
19-APR-78 11:44 PAGE 38 
CZDLDC.P11 19=APR=78 11:41 T12 


TEST THAT BIT6 OF RCSR CAN BE SET & RESET 


005056 012737 000012 001002 TCLOCK: MOV #12,STSTNM ;ADJUST TEST NUMBER TO (NEXT TEST = 1) 
PEPSI e Tit ti lili it iiia titi i iti titeticititiii iti titi tii t ttt i tits) 
:*TEST 13 TEST ABILITY TO ACCESS LKS 
ESTA IIIS Titi iis iii ia titi ti teri tatiti iii iitititiiiit iii tii tits) 
005064 000004 TST13: 
002336 


000100 173736 
000004 


005124 000004 
175264 


CTSTFL :1S CONSOLE UNDER TEST? 


TST14 :1F NOT, SKIP THIS TEST 
#BIT6,aSWR 
TST14 


sARE LINE CLOCK TESTS INHIBITED? 
:IF YES, SKIP THIS TEST 

SAVE TIMEOUT VECTOR 

SET UP TIMEOUT VECTOR 

sACCESS LKS 

:NO TIMEOUT - BR TO END OF TEST 


RESTORE SP AFTER TIMEOUT 


005122 000402 


005124 022626 1$: (SP)+, (SP) + 
005126 104010 10 CAN NOT ACCESS LKS 


005130 010337 000004 28: R3,a#4 RESTORE TIMEOUT VECTOR 
ECP S ITP i retire tree r irri tii iri rit iiiiitiiiiitiiiaiiiit, 


s*TEST 14 TEST THAT BIT6 OF LKS CAN BE SET & RESET 


SRR REE A EEE EAA EEA EERE ERE EAE AAA AREER EE 


005134 


005206 
005210 
005212 
005214 


005216 
005224 
005232 


005234 


005236 


005254 
005256 


000004 


104033 
000402 
022626 
104034 


052777 
032777 
001001 


104035 
042777 
032777 
001401 
104036 


052777 


002336 
000100 
175226 
005212 
012242 


000100 


000100 
000100 


000100 
000100 


000100 


173666 


175220 


175202 


175122 


TST14: 


CTSTFL 
TST15 
#BIT6,aSWR 
TST15 
@RTCVT,R3 
#1$,aRTCVT 
PC ,WRPSW 
-WORD 340 
#BIT6,aLKS 
2$ 

33 

2$ 


(SP)+, (SP)+ 
34 


#BIT6,aLKS 
corte ae 


35 


#81T6,aLKS 
#B1T6,aLKS 
4$ 
36 


#BIT6,aLKS 


:1S CONSOLE UNDER TEST? 

IF NOT, SKIP THIS TEST 

sARE LINE CLOCK TESTS INHIBITED? 

:I1F YES, SKIP THIS TEST 

SAVE LINE CLOCK VECTOR 

SET UP INTERRUPT VECTOR FOR ERROR REPORT 
SET PSW TO PRIORITY 7 


TEST BIT6 OF LKS 


:BIT6 OF LKS NOT CLEAR AFTER RESET 


RESTORE SP AFTER INTERRUPT 
sLKS INTERRUPT WITH PRIORITY=7 
;SET BIT6 OF LKS 

TEST BIT6 OF LKS 

:BR IF SET 

CANNOT SET BIT6 OF LKS 

CLEAR BIT6 OF LKS 

:TEST BIT6 OF LK 


CANNOT CLEAR BIT6 OF LKS 
SET BIT6 OF LKS 





N 3 
«MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 39 SEQ 0039 
CZDLDC.P11 19-APR-78 11:41 T14 TEST THAT BIT6 OF LKS CAN BE SET & RESET 


005264 000005 CLEAR BIT6 OF y WITH RESET 
005266 032777 000100 175112 #BIT6,aLKS TEST BIT6 OF LK 
005274 001401 5$ ;BR IF CLEAR 


005276 104037 37 
;CANNOT CLEAR BIT6 OF LKS WITH RESET 


005300 010377 175104 : R3,aRTCVT sRESTORE LINE CLOCK VECTOR 
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MACY11 30A(1052) 
P11 


005304 


005456 
005460 


005462 


005464 
005470 


19-APR-78 


19-APR-78 11:41 


000004 


000401 
104040 


010337 
010437 


000004 
000006 
005450 
000340 


000002 
000020 


002406 


002346 
00102C 
001022 
001020 


001022 
173402 
000100 
000100 


001024 


000004 
000006 


000004 
000006 
173472 
001020 


001020 
001022 


001022 
001024 
173372 
173362 


173354 





B 4 
11:44 PAGE 40 SEQ 0040 
T14 TEST THAT BIT6 OF LKS CAN BE SET @ RESET ( 


PL AAAAAe Ree eae eee eee eee re eeeeeeeeeeeeeeeeeeekeeteeeteeekeeereeeee 


s*TEST 15 TEST FOR DUAL ADDRESSING OF REGISTERS 


FRRAAAAAARERARAAAAAAAKAAA AERA RE KATA AKARERE KERR EeeH Ret eAet 


18115: cCOPE 


MOV aad ,R3 :SAVE TIMEOUT VECTOR 
MOV a#6,R4 SAVE TIMEOUT PSW 
MOV #43084 ;SET UP TIMEOUT VECTOR 
MOV #340 ,a#6 ;KEEP PRIO=7 
RESET CLEAR EVERYTHING 
MOV #BIT1,RO ;SET UP BIT MASK 
BIT #B1T4,aswR :CLOCK TEST ONLY? 
BEQ 1$ ;BR IF NOT 
_ aes ELSE, MOVE GOOD LKS ADDRESS INTO S$GDADR 
B 
1$: MOV RCSR,SGDADR ;MOVE GOOD RCSR ADDRESS INTO $GDADR 
2s: MOV SGDADR,SBDADR ;MOVE GOOD ADDRESS INTO TEST ADDRESS LOCATION 
BIC RO, $BDADR CREATE BAD ADDRESS BY COMPLEMENTING ONE BIT 
CMP SGDADR,SBDADR ;ARE ADDRESSES IDENTICAL? 
BNE 3$ IF NOT, TEST THIS ADDRESS 
BIS RO, $BDADR ELSE, BIT SET THIS BIT POSITION TO GENERATE BAD ADDRESS 
3$: MOV @SBDADR,SGDDAT ;SAVE CONTENTS OF BAD ADDRESS IF IT EXISTS 
BIS #BI1T6,@SBDADR ;SET BIT6 USING BAD ADDRESS 
BiT #BIT6,a$GDADR ;CHECK TO SEE IF €00D ADDRESS CONTAINS BIT6 
BNE 6$ ;BR IF SET ===> ERROR 
MOV SGDDAT,@$BDADR ;RESTORE ANY MEMORY LOCATION THAT WAS ALTERED 
BR 5$ :BR TO CONTINUE TEST 
4$: CMP (SP)+, (SP) + RESTORE SP AFTER TIMEOUT 
5$: ASL RO :SHIFT BIT MASK TO NEXT POSITION 
TSTB RO :COMPLEMENTED ALL BITS FROM 1 - 7? 
BPL 2$ :BR, IF NOT. 
BR 7$ BR TO NEXT TEST 
6$: ERROR 40 ;DUAL ADDRESSING ERROR 
:$BDADR = DUAL ADDRESS 
:S$GDADR = GOOD ADDRESS 
7$: MOV R3,a#4 RESTORE TIMEOUT VECTOR 


MOV R4,a#6 RESTORE TIMEOUT PSW 


C 4 


.MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 41 SEQ 0041 
CZDLDC.P11 =: 19=APR=78 11:41 115 TEST FOR DUAL ADDRESSING OF REGISTERS 
1752 
1753 
1754 Z FRR RARER ERATE EEE EEA AERA EAE TERE ERE AARAEAAREREAEREKEREEE 
1755 [TEST 16 TEST THAT BIT7 OF LKS SETS & CAN BE CLEARED 
1756 ; PPPS ERR RRRRASARARASARSALSASSSALASESEASAS ESE SESE SESE S ERS ESAS SS 
1757 005474 000004 TST16: SCOPE 
1758 005476 005737 002336 TST CTSTFL ;1S CONSOLE UNDER TEST? 
1759 005502 001437 BEQ TST17 :1F NOT, SKIP THIS TEST 
1760 005504 032777 000100 173326 BIT #B1T6,aSWR SARE LINE CLOCK TESTS INHIBITED? 
1761 005512 001033 BNE TST17 :IF YES, SKIP THIS TEST 
1762 005514 000005 RESET ZCLEAR EVERYTHING & SET BIT? OF LKS 
1763 005516 105777 174664 1$: TSTB = @LKS :TEST FOR BIT? OF LKS 
1764 005522 100401 BMI 2$ :BR IF SET 
1766 005524 104041 ERROR 41 :BIT7 OF LKS DID NOT SET WITH RESET 
7768 005526 042777 000200 174652 28: BIC #BIT7,aLKS :CLEAR BIT7 OF LKS 
1769 005534 072777 000200 174644 BIT #BIT7,aLkS :TEST BIT? OF LKS 
1770 005542 001410 BEQ 3$ 
1771 005544 042777 000200 174634 BIC #¥BI1T7,aLkS ;TRY ONE MORE TIME BECAUSE THE CLOCK 
1772 005552 032777 000200 174626 BIT #BIT7.aLKS ; MAY HAVE SET IMMEDIATELY AFTER THE FIRST CLEAR 
1773 005560 001401 BEQ 3$ 
1775 005562 104042 ERROR 42 :CAN NOT CLEAR BIT7 OF LKS 
1777 005564 005000 3S: CLR RO :CLEAR TIMER 
1778 005566 105777 174614 CONT: TSTB  aLkS :TEST FOR BIT? OF LKS 
1779 005572 100403 BMI TST17 :BR, IF SET 
1780 005574 005200 INC RO : INCREMENT TIMER 
1781 005576 001373 BNE CONT :CONTINUE UNTIL TIME EXPIRES 
1783 005600 104043 ERROR 43 ;BIT7 OF LKS DOES NOT SET 


D 4 
-MAIN, MACY11 30A(1052) 19-APR-78 11:44 PAGE 42 SEQ 0042 


CZDLDC.P11 19=APR-78 11:41 716 TEST THAT BIT7 OF LKS SETS & CAN BE CLEAREv 


FREER EERE EEE EEE EERE REE EEE EERE REAR EAREREREEEREREEREEE 


;*TEST 17 TEST THAT THE REAL TIME CLOCK INTERRUPTS PROPERLY 


STREAK 


005700 


005702 
005704 


005706 


005736 


005740 
005742 


005744 


005776 


006000 
006002 
006010 
006014 


000004 TST1?7: 


000402 


022626 
104044 


005077 


000402 


022626 
104045 


012777 
042777 
052777 
105777 
100375 
000240 


104046 


022626 
042777 
010377 
010477 


002336 
000100 
012242 
174554 


174512 


174474 
005740 
012242 


174454 


006000 
000200 
000100 
174414 


000100 
174574 
174372 


173220 


174542 
174536 
174524 
174516 


174470 


174436 
174426 
174420 


174376 


#2$, ,aRTCVT 


#340,aRTCPSW 


#BIT7, aks 
#BIT6,aLKS 
aks 

1$ 


3$ 
(SP)+, (SP) + 
54 


1S CONSOLE UNDER TEST? 
:1F NOT, SKIP THIS TEST 
sARE LINE CLOCK TESTS INHIBITED? 
s1F YES, SKIP THIS TEST 
SET PSW TO PRIORITY 7 


SAVE LINE CLOCK VECTOR 

SAVE LINE CLOCK PSW VECTOR 

;SET RTC INTERRUPT VECTOR TO ERROR REPORT 
KEEP PRIORITY AT 7 

;CLEAR CLOCK DONE FLAG 

;SET INTERRUPT ENABLE 

sWAIT FOR RTC DONECINTERRUPT REQUEST) 


:GIVE TIME FOR ANY INTERRUPTS 
BR, IF NO INTERRUPT OCCURS 


RESTORE SP AFTER INTERRUPT 
RTC INTERRUPTS AT PRIORITY 7 


aLks ;DISABLE RTC INTERRUPTS & CLEAR DONE 


#4$,aRTCVT 
PC,WRPSW 
WORD 240 
@LKS 

20$ 


5$ 
(SP)+, (SP) + 
45 


#7$ ,aRTCVT 
#BIT7,aLlkS 
#B1T6,aLKS 
aks 

6$ 


46 


(SP)+,(SP)+ 
#B1T6,aLKS 
R3,aRTCVT 
R4,aRTCPSW 


;SET RTC INTERRUPT VECTOR FOR ERROR 
; CHANGE PSW TO PRIORITY 5 


WAIT FOR DONE CINTERRUPT REQUEST) 


:GIVE TIME FOR ANY INTERRUPT 
:1F NO INTERRUPT - BR TO CONTINUE TEST 


RESTORE SP AFTER INTERRUPT 
RTC INTERRUPTS WITH INTERRUPTS DISABLED 


;POINT RTC VECTOR TO END OF TEST 
:CLEAR CLOCK DONE FLAG 

;ALLOW INTERRUPTS 

;WAIT FOR RTC DONE 


GIVE TIME FOR INTERRUPT 
RTC INTERRUPT DID NOT OCCUR 
RESTORE SP AFTER INTERRUPT 
DISABLE INTERRUPTS 


RESTORE LINE CLOCK VECTOR 
RESTORE LINE CLOCK PSW VECTOR 





E 4 
~MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 43 SEQ 0043 
DC.P11 19=APR-78 11:41 117 TEST THAT THE REAL TIME CLOCK INTERRUPTS PROPERLY 


PRR RARER ATER ARTETA RTA A ARETE EEE E EERE E REE E EERE Eee 
:*TEST 20 TEST RTC FOR DOUBLE INTERRUPTS 
PRR RARE REAR EEE EEA EERE REE ERATE TEER R EERE EERE REE EEE EEE 
006020 000004 TST20: 
002336 T CTSTFL :1S CONSOLE UNDER TEST? 
TST21 :1F NOT, SKIP THIS TEST 
000160 173002 #B1T6,aSWR ARE LINE CLOCK TESTS INHIBITED? 
TST21 IF YES, SKIP THIS TEST 
CLEAR EVERYTHING 
174342 @RTCVT,R3 SAVE LINE CLOCK VECTOR 
174340 @RTCPSW,R4 SAVE LINE CLOCK PSW VECTOR 
006122 174330 #2$ ,aRTCVT 7SET UP RTC INTERRUPT VECTOR 
000340 174324 #340 ,aRTCPSW sDISALLOW INTERRUPTS AFTER THE INTERRUPT 
012242 PC,WRPSW ;SET PRIORITY TO 5 
-WORD 240 
000200 174304 #BIT7,aLks :CLEAR CLOCK DONE FLAG 
000100 174276 #BIT6,aLKS sENABLE CLOCK iNTERRUPTS 
174272 : te WAIT FOR DONE 
006116 000240 :GIVE TIME FOR ANY INTERRUPT 


006120 104047 47 RTC INTERRUPT DID NOT OCCUR 
006122 022626 : (SP) +, (SP)+ sRESTORE SP AFTER INTERRUPT 


012777 006144 174256 #3$,aRTCVT ;POINT RTC VECTOR TO ERROR REPORT 
004737 012242 PC ,WRPSW SET PSW TO PRIORITY 5 
000240 ~-WORD 240 
000240 ;GIVE SOME TIME FOR AN INTERRUPT 
006142 000402 4$ :NO INTERRUPT - BR TO END OF TEST 


006144 022626 : (SP)+,(SP)+ ;RESTORE SP AFTER INTERRUPT 
006146 104050 50 ; INTERRUPT SEQUENCE DID NOT CLEAR 
; INTERRUPT REQUEST 


006150 042777 000100 174230 : #BIT6,aLKS DISABLE CLOCK INTERRUPTS 
006156 010377 174226 R3,aRTCVT sRESTORE LINE CLOCK VECTOR 
006162 010477 174224 R4,aRTCPSW RESTORE LINE CLOCK PSwW VECTOR 





F 4 
“+ aid 30A(1052) “ae 78 «11: 730 PAGE 44 SEQ 0044 


19-APR-78 1 TEST RTC FOR DOUBLE INTERRUPTS 


MASRARARARARBARARASRASLASLASESAASASASAASASASLASEASASSASE SARS S ESS S ES SE Sf 


:ATEST 21 TEST THAT RTC INTERRUPT CLEARS WITH RESET 


006166 000004 
006170 005737 
006174 001442 
006176 032777 
006204 001036 
006206 004737 
006212 000340 
006214 017703 
006220 012777 


006256 000240 
006260 000240 
006262 042777 
006270 000402 


006272 022626 
006274 104051 


006276 010377 


002336 
000100 
012242 
174170 
006272 
000200 


000100 
174140 


012242 


000100 


174106 


172634 


174162 
174152 
174144 


174116 


SRR ERE EERE EERE REE EEE EEE EERE 


té121: 


22 
#B1T6,aSWR 
TST22 
PC ,WRPSW 
WORD 340 
@RTCVT,R3 
#2$,aRTCVT 
#BIT7,aLkS 
#BIT6,aLKS 
aLKS 
1$ 


PC,WRPSW 
-WORD 240 


#BIT6,aLKS 
3$ 


(SP)+, (SP)+ 
51 


R3,aRTCVT 


:1S CONSOLE UNDER Saat 


:1F NOT, SKIP THIS TEST 

7 ARE LINE CLOCK TESTS INHIBITED? 
:1F YES, SKIP THIS TEST 

7 SET PRIORITY TO 7 


SAVE LINE CLOCK VECTOR 

;POINT RTC VECTOR TO ERROR REPORT 
;CLEAR CLOCK DONE FLAG 

sENABLE CLOCK INTERRUPTS 

WAIT FOR DONE (INTERRUPT REQUEST) 


;CLEAR PENDING INTERRUPT WITH RESET 
SET PRIORITY TO 5 


:GIVE TIME FOR ANY INTERRUPT 
:DISALLOW INTERRUPTS 
;BR TO END OF TEST 


;RESTORE SP AFTER INTERRUPT 
RESET DID NOT CLEAR INTERRUPT 


RESTORE LINE CLOCK VECTOR 





G 4 
-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 45 SEQ 0045 
CZDLDC.P11 19-APR-78 11:4 T21 TEST THAT RTC INTERRUPT CLEARS WITH RESET 


PRC teeter iter errr irri titre i iii t iii i titi iii i iii ii iit iit) 
*TEST 22 TEST THAT RTC INTERRUPT CLEARS BY CLEARING BIT7 OF LKS 
PES CSIC ii ie iter elicit eri i titi ct ec titi iti i tia it ite t ec itty 
000004 TST22: 
002336 T :1S CONSOLE UNDER TEST? 
:1F NOT, SKIP THIS TEST 
000100 172520 ARE LINE CLOCK TESTS INHIBITED? 
TST2? IF YES, SKIP THIS TEST 
012242 SET PRIORITY TO 7 
-WORD 340 
174054 @RTCVT,R3 :SAVE LINE CLOCK VECTOR 
006412 174046 #2$,aRTCVT :POINT RTC VECTOR TO ERROR REPORT 
000200 174036 #BIT7,aLks ;CLEAR CLOCK DONE FLAG 
000100 174030 #B1T6,aLKS s;ENABLE CLOCK INTERRUPTS 
174024 : a ae sWAIT FOR DONE (INTERRUPT REQUEST) 
000200 174014 #BIT7,aLks ;CLEAR DONE & INTERRUPT 
012242 PC, WRPSW ;ALLOW INTERRUPTS 


-WORD 240 
:GIVE TIME FOR ANY INTERRUPT 


000100 173776 #BIT6,aLKS ;DISALLOW INTERRUPTS 
006410 000402 3$ ;BR TO END OF TEST 


006412 022626 : (SP)+,(SP)+ RESTORE SP AFTER INTERRUPT 


006414 104052 52 CLEARING BIT7 OF LKS DID NOT CLEAR INTERRUPT 


006416 010377 173766 : R3,aRTCVT RESTORE LINE CLOCK VECTOR 
006422 004737 012242 PC ,WRPSW RESTORE PRIORITY TO 7 
006426 000340 . 340 





-MAIN. 


MACY11 30A(1052) 


CZDLDC.P11 


006430 


006450 
006456 


006554 


006556 
006562 


006564 
006572 
006574 


006600 
006602 


19-APR-78 


000004 
005737 
001462 
032777 
001056 
042777 


005000 
012701 
005002 


003403 


010237 
104053 


032777 
001404 
000137 


000000 
000000 


19-APR-=78 11:44 PAGE 46 
11:41 T22 


002336 
000100 
000100 


177777 


173714 
173710 


173702 
173676 


173666 


006600 


006600 


000001 


006602 


000020 
012102 


172372 
173730 


172246 


H 4 


TEST THAT RTC INTERRUPT CLEARS BY CLEARING BIT? OF LKS 


SEER EEE EEE EERE EEE EERE REE RARER ERE EREREEE 


s*TEST 23 


TST23: 


1$: 
2$: 


3$: 


4$: 


CMPARE : 


TOLER: 


5$: 


FIRST: 
SECND: 


SCOPE 


- WORD 
« WORD 


TEST CLOCK REPEATABILITY 


PTR AAA RR E RAE ER AEA 


CTSTFL 
TST24 
#BIT6,aSwR 
TST24 
#B1T6,aLKS 


CMPARE 


$ 
FIRST,R1 


R2,SECND 
53 


#BITS,aSwR 
TST24 
SEOP 


0 
0 


:1S CONSOLE UNDER TEST? 

:1F NOT, SKIP THIS TEST 

sARE LINE CLOCK TESTS INHIBITED? 
IF YES, SKIP THIS TEST 
DISALLOW INTERRUPTS 


;CLEAR A TIMER 

SET A FLAG INDICATING FIRST PASS THRU THIS LOOP 
CLEAR CLOCK COUNTER 

; CLEAR DONE 

SYNC ON DONE 


; CLEAR DONE 
:1S CLOCK DONE? 
;BR IF NOT , TO INCREMENT TIMER 


; INCREMENT TIMER 

:BR IF TIME REMAINS 

; INCREMENT LOOP PASS FLAG 

:BR IF TWO PASSES HAVE BEEN MADE 

;1F NOT, STORE FIRST CLOCK COUNT 

;D0 LOOP AGAIN 

RECALL FIRST CLOCK COUNT 

CALCULATE DIFFERENCE OF TWO COUNTS 

:I1F POSITIVE,SKIP NEGATION OF DIFFERENCE 
MAKE DIFFERENCE A POSITIVE NUMBER 
COMPARE DIFFERENCE WITH DESIRED TOLERANCE 
BR, IF LOWER/EQUAL TO TOLERANCE 


STORE SECOND COUNT 
:CLOCK REPEATABILITY ERROR 


;CLOCK TESTS ONLY? 
: F NOT 


;ELSE, JUMP TO END OF PASS ROUTINE 


SEQ 0046 


-MAIN. MACY11 30A(1052) 


CZDLDC.P11 


006604 
006606 
006614 
006620 
006626 
006632 
006634 
006640 
006642 


006644 
006646 


006650 
006656 
006664 


006666 
006670 


006676 
006700 


19-APR-78 


19-APR-78 11:41 


000004 
042777 
017703 
012777 
105777 
100375 
004737 
000140 
000402 


022626 
104054 


012777 
052777 
000240 


104055 
042777 


022626 
010377 


000100 
173542 
006644 
173520 


012242 


006670 
000100 


000100 
173456 


173536 
173534 


173504 
173466 


173454 


11 


123 


I 


744 PAGE 47 


4 


TEST CLOCK REPEATABILITY 


. 


WeASSASAARARARARRRSASLAAALARARAREAASALASSASSES ESE SESE SESSLER SES SS 


TeTEST 24 


TEST THAT XMIT INTERRUPTS ONLY WHEN ENABLED 


SRE ERE EEE EERE TERE EE EERE REAR EE 


TST24: 


1$: 


#B1T6,aTCSR 
aTVECT,R3 
#2$,aTVECT 
aTCsR 

1$ 
PC,WRPSW 
-WORD 140 
3$ 


(SP)+,(SP)+ 
54 


#4$,aTVECT 
#BIT6,aTCSR 


55 
#B1T6,aTCSR 


(SP)+,(SP)+ 
R3,aTVECT 


;CLEAR TRANSMIT INTERRUPT ENABLE 
;SAVE XMIT VECTOR 

;POINT XMIT VECTOR TO ERROR REPORT 
WAIT FOR DONE 


:SET PSW TO PRIORITY 3 


;RESTORE SP AFTER INTERRUPT 


:XMIT INTERRUPTS WITH INTERRUPT ENABLE CLEAR 
;SET XMIT VECTOR TO END OF TEST 
sENABLE INTERRUPTS 


:XMIT DID NOT INTERRUPT 
:DISABLE INTERRUPTS 


RESTORE SP AFTER INTERRUPT 
RESTORE XMIT VECTOR 


SEQ 0047 
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~-MAIN, MACY11 30A(1052) 19-APR-78 11:44 PAGE 48 SEQ 0048 
CZDLDC.P11 19-APR-78 11.41 T24 TEST THAT XMIT INTERRUPTS ONLY WHEN ENABLED 


SRE 
:*TEST 25 TEST THAT XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED 
FREER EEE ERE RARE EEE ERE REE AERTS 

006704 000004 S125: 

000100 173436 #BIT6,aTCSR ;DISABLE INTERRUPTS 

012242 PC,WRPSW :SET PSW TO PRIORITY 7 

.WORD 340 

173434 aTVECT,R3 ;SAVE XMIT VECTOR 

006754 173426 #2$,aTVECT :POINT XMIT VECTOR TO ERROR REPORT 

173412 aT CSR [WAIT FOR DONE 

000100 173402 #B1T6,aTCSR ;ENABLE INTERRUPT 


006752 000402 3$ CONTINUE TEST 
006754 022626 : lal eat RESTORE SP AFTER INTERRUPT 


006756 104056 
:XMIT INTERRUPTS AT PRIORITY=7 

006760 042777 000100 173364 : #BIT6,aTCSR ;CLEAR INTERRUPT ENABLE 

012777 007006 173366 #4$,aTVECT ;POINT XMIT VECTOR TO ERROR REPORT 

004737 012242 PC ,WRPSW SET PSW TO PRIORITY 3 

000140 -WORD 140 

000240 
007004 000402 5$ :BR TO END OF TEST-NO INTERRUPT 


007006 022626 : -—e RESTORE SP AFTER INTERRUPT 


007010 104057 
:XMIT INTERRUPT OCCURES WITH BIT6 CLEAR 
007012 0103/7 173344 t R3,aTVECT RESTORE XMIT VECTOR 





MACY11 30A(1052) 
P11 19-APR-78 1 


007016 


907074 
007076 


007100 
007102 
007110 
007114 
007116 
007120 
007126 


007130 
007132 


007134 
007140 


007144 


007236 


007240 
007242 


000004 


000240 
104060 
022626 


000402 


022626 
104061 


010377 
010477 


000004 


000402 


022626 
104062 


SM aa -78 


000100 
173330 
173326 
007100 
000340 
012242 


173266 
000100 


007130 
012242 


000100 


173222 
173220 


000100 
012242 


173174 
007240 
000100 
173146 
173140 


173134 
012242 


000100 


173256 


173252 


173224 


173176 


173114 


11 


744 PAGE 
T25 


K 4 


49 
TEST THAT XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED 


SRE ERE REE EAE EERE EERE REE REET ERA EEE EES 


SRTEST 26 


18126: 


4$: 


5$: 


TEST TRANSMITTER FOR DOUBLE INTERRUPTS 


SERRE RARER EERE EEE EERE EEE EERE EEE EERE EERE EEE R ERE ER EE 


#BIT6,aTCSR 
aTVECT,R3 
aTPSW,R4 
#2$,aTVECT 
#340 ,aTPSW 
PC,WRPSW 
-WORD 140 
aTCSR 


1$ 
#B1T6,aTCSR 
60 
(SP)+, (SP)+ 


#4$,aTVECT 
PC ,WRPSW 
140 


#BIT6,aTCSR 
5$ 
(SP)+, (SP)+ 
61 


R3,aTVECT 
R4,aTPSW 


:CLEAR INTERRUPT ENABLE 
SAVE XMIT VECTOR. 

SAVE XMIT PSW VECTOR 

SET UP XMIT VECTOR 

;SET PIO 7 AFTER INTERRUPT 
SET PSW TO PRIORITY 3 


;WAIT FOR DONE 
sENABLE INTERRUPTS 


:XMIT INTERRUPT DID NOT OCCUR 
sRESTORE SP AFTER INTERRUPT 
;POINT XMIT VECTOR TO ERROR 
SET PSW TO PRIORITY 3 


:GIVE TIME FOR ANY INTERRUPTS 
:DISABLE INTERRUPTS 
:BR TO END OF TEST 


RESTORE SP AFTER INTERRUPT 
3XMIT RE-INTERRUPTED 


RESTORE XMIT VECTOR 
RESTORE XMIT PSW VECTOR 


FERRARA EAA AERA 


: TEST 27 


18127: 


SCOPE 
B 


TEST THAT XMIT INTERRUPT CLEARS WITH LOADING TBUF 


FERRARA AAA EEE REREEEREKERERERE 


#B1T6,aTCSR 


aTVECT,R3 
#2$ ,aTVECT 
#81T6,aTCSR 
aTBUF 

aTCsR 

1$ 

@TBUF 

PC ,WRPSW 
-WORD 140 


#BIT6,aTCSR 
3$ 


(SP)+, (SP)+ 
62 


DISABLE INTERRUPTS 
SET PSW TO PRIORITY 7 


SAVE XMIT VECTOR 

POINT XMIT VECTOR TO ERROR 
ENABLE INTERRUPTS 

;LOAD TBUF 

sWAiT FOR DONE (INTERRUPT) 


sFILL SECOND BUFFER TO RESET INT. 
ALLOW INTERRUPTS 


:GIVE TIME FOR ees D cma, 
DISABLE INTERRUP 
;BR TO END OF TEST. 


RESTORE SP AFTER INTERRUPT 


SEQ 0049 





-MAIN. MACY11 30A(1052) 19-APR-78 
CZDLDC.P11 19-APR-78 11:41 


2097 
2098 007244 010377 173112 
2099 


11:44 PAGE 50 
T27 


3$: 


L 4 
TEST THAT XMIT INTERRUPT CLEARS WITH LOADING TBUF 


;LOADING TBUF DID NOT CLEAR INTERRUPT. 
MOV R3,aTVECT RESTORE XMIT VECTOR 


SEQ 0050 





-MAIN. 


MACY11 30A(1052) 
19-APR=78 11:4 


CZDLDC.P11 


007250 


007304 
007312 
007314 
007316 
007324 
007326 


007330 


007356 


007360 
007366 


007370 


007416 


007420 
007426 
007430 
007436 


007440 
007442 
007446 


007450 
007456 


000004 


042777 
104063 
000005 
032777 
001401 
104115 


005000 


001404 


042777 
104176 


005000 


104064 


032777 
001404 
042777 
104065 


000005 
105777 
001404 


042777 
104066 


000004 


173064 
004060 


000004 


004000 


000004 
000000 


004000 


000004 


172756 
172744 


000004 


004000 
000004 


172700 


000004 


| i 11 


173070 


173050 


173040 


173022 


173012 


172770 


172764 


172734 


172720 
172714 


172674 


T27 


744 PAGE 51 


Mm 4 


TEST THAT XMIT INTERRUPT CLEARS WITH LOADING TBUF 


FREER EEE REE EEE EE 


s*TEST 30 


TST30: 


WACTV: 


2$: 


3$: 
WT: 


4$: 
WDONE : 


5$: 


6$: 


TEST THAT RCVR ACTIVE (11) & DONE (7) SET & CLEAR PROPERLY 


SPREE EEE EERE EEE AREAEAREREREAERERKERKE EEE 


#BIT2,aTCSR 
RO 


aTBUF 
#B1T11,@RCSR 
2$ 


RO 

WACTV 
#BIT2,aTCSR 
63 
#B1T11,@RCSR 
3$ 

115 

RO 
#BIT2,aTCSR 
#0,R0 


RO 
wT 
BIT11,@RCSR 
4$ 


#B1T2,aTCSR 
116 


WDONE 
#B1T2,aTCSR 
64 


“> he cama 
#B1T2,aTCSR 
65 


@RCSR 
7$ 


#BIT2,aTCSR 
66 


CLEAR EVERYTHING 

SET MAINTENANCE WRAP 

:CLEAR A TIMER 

;LOAD TRANSMIT BUFFER 

; TEST RCVR ACTIVE BIT 

7BR IF SET 

; INCREMENT TIMER IF NOT SET 
sCONTINUE WAIT IF TIME REMAINS 
:CLEAR MAINTENANCE BIT 


sRCVR ACTIVE DID NOT SET WHILE RECEIVING 
sVERIFY “‘INIT’’ CLEARS RCV ACTIVE 


: INIT DID NOT CLEAR RCV ACTIVE 


;CLEAR A TIMER 
:SET MAINTENANCE WRAP 
;WAIT AT LEAST ONE BIT TIME 


VERIFY RCV ACTIVE STILL CLEAR 
:BR IF CLEAR 


;CLEAR MAINTENANCE WRAP 
sRCV ACTIVE WITHOUT ‘START’ BIT 


CLEAR TIMER 

;LOAD TRANSMIT BUFFER 

;CHECK FOR RECEIVER DONE 

:BR, IF DONE 

: INCREMENT TIMER, IF NOT DONE 
:CONTINUE WAIT IF TIME REMAINS 
:CLEAR MAINTENANCE BIT 


RECEIVER DONE NEVER SET 

:CHECK FOR RCVR ACTIVE CLEAR 

:BR, IF CLEAR 

CLEAR MAINTENANCE BIT 

:RCVR ACTIVE DID NOT CLEAR WITH RCVR DONE 
CLEAR DONE WITH RESET 

CHECK FOR DONE CLEAR 


CLEAR MAINTENANCE BIT 


SEQ 0051 


N 4 
-MAIN, MACY11 30A(1052) _—"" re PAGE 52 SEQ 0052 


CZDLDC.P11 19-APR-78 11: TEST THAT RCVR ACTIVE (11) & DONE (7) SET & CLEAR PROPERLY 
sRESET DID NOT CLEAR RCVR DONE 


007460 042777 000004 172660 7S: BIC #BIT2,aRCSR :CLEAR MAINTENANCE BIT 
2159 007466 000400 BR TST31 


:BR TO NEXT TEST 





-MAIN, 


CZDLOC.P1 


_ 


007470 


007522 
007530 


007532 
007534 


007556 


007560 


007624 


30A(1052) 
19-APR-78 


000004 


001401 
104117 


052777 
105777 
001404 
042777 
104067 


000004 


19-APR-78 11 
11:41 
000001 172644 
000004 172642 
172640 
172626 
000001 172616 
000001 172604 
172600 
000004 172574 
000004 172560 
172556 
172544 
172540 
000004 172534 
172524 


744 
T 


B 5 
PAGE 53 
30 TEST THAT RCVR ACTIVE (11) & DONE (7) SET & CLEAR PROPERLY 


PP AAAeeekeeekekekereeerertereeereeeerekeeeeeereketeeretekekereeeee 


TEST 31 TEST THAT RDR ENABLE CLEARS RECEIVER DONE FLAG 


SF RAAAAAAHAAAAAAA AK EA AERA ERATE AERE RAKE KEReKKeeeeeee eee 


TST31: SCOPE 


RESET CLEAR EVERYTHING 

BIS #BITO,@RCSR SET RDR ENABLE 

BIS #BIT2,aTCSR SCT MAINTENANCE WRAP 

CLR aTBuF :LOAD TRANSMITTER 
1$: =~ tne sWAIT FOR RECEIVER DONE 

L 

BIT #B1TO,aRCSR VERIFY RCV ACTIVE CLEARED RDR ENABLE 

BEQ 2$ BR IF CLEAR 

ERROR 117 ROR ENABLE NOT CLEARED WITH RCV ACTIVE 
23: BIS #BITO,@RCSR :CLEAR DONE BY SETTING RDR ENABLE 

TSTB @RCSR CHECK FOR DONE CLEAR 

BEQ TST32 BR, IF CLEAR TO NEXT TEST 


BIC + Dieppe :CLEAR MAINTENANCE BIT 
SETTING RDR ENABLE DID NOT CLEAR RCVR DONE 


SERRA RARER AEE EAE AEE AEE EEE AERA EERE AR AAAEARAREAAEAEAKERRERE 
S*TEST 32 TEST THAT READING RBUF CLEARS RECEIVER DONE 
PERERA ARATE RATER AEE AAA EERE EEE AAA 
TST32: SCOPE 

RESET ;CLEAR EVERYTHING 

BIS #BIT2,aTCSR :SET MAINTENANCE WRAP 

CLR aTBUF :LOAD TRANSMITTER 


1$: i aa aaa sWAIT FOR RECEIVER DONE 
L 
MOV @RBUF ,RO READ RECEIVE BUFFER 
BIC #BITc.@ICSR :CLEAR MAINTENANCE BIT 
TSTB @RCSR . HECK FOR RECEIVE DONE CLEAR 
BEQ TST33 BR, IF CLEAR TO NEXT TEST 
ERROR 70 


READING RBUF DID NOT CLEAR RCVR DONE 


SEQ 0053 


oe 


: § 
-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 54 SEQ 0054 
CZDLDC.P11 19=APR=78 11:41 T32 TEST THAT READING RBUF CLEARS RECEIVER DONE 


SFR AEE REE E REE EAEEAEAEAEAAAERE RARE AREER REAEEEAEEAERARE REAR 
SeTEST 33 TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED 
STREETER AERA RAE AERA REE EE IRARAASAASAALASALSASEELASSAS ASS Sf 
007626 000004 S133: 
000100 172514 #B1T6,aTCSR :DISABLE TRANSMIT INTERRUPTS 
172502 #B1T6,aRCSR ;DISABLE RECEIVER INTERRUPTS 
172500 #81T2,a7CSR [SET MAINTENANCE WRAP 
@RVECT,R3 :SAVE RECEIVE VECTOR 
172472 #2$,,aRVECT :POINT RCV VECTOR TO ERROR REPORT 
012242 PC ,WRPSW :SET PSW TO PRIORITY 3 
.WORD 140 
172456 aTBUF ;SEND A CHARACTER 
172444 @RCSR :WAIT FOR RECEIVER DONE 


1$ 
000004 172440 #BIT2,aTCSR ;CLEAR MAINTENANCE BIT 
007712 000405 3$ > CONTINUE TEST 


007714 042777 000004 172430 : #BIT2,aTCSR ;CLEAR MAINTENANCE BIT 
007722 022626 aaa RESTORE SP AFTER INTERRUPT 


007724 104071 
RECEIVER INTERRPUTS WITH INT. ENABLE CLEAR 
007726 012777 007754 172422 : #4$ ,QRVECT :POINT RCV VECTOR TO END OF TEST 


052777 000100 172404 #B1T6,aRCSR sENABLE RCV INTERRUPTS 
000240 sGIVE ANY INTERRUPTS TIME 


042777 000004 172400 aaa > CLEAR MAINTENANCE BIT 


007752 104072 
z:RCVR DID NOT INTERRUPT 


007754 042777 000100 172364 : #B1T6,aRCSR :DISABLE INTERRUPTS 

007762 042777 000004 172362 #BIT2,aTCSR :CLEAR MAINTENANCE BIT 
007770 022626 (SP)+,(SP)+ RESTORE SP AFTER INTERRUPT 
007772 010377 172360 R3,aRVECT RESTORE RECEIVE VECTOR 





dD 5 
~MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 55 SEQ 0055 
LOC.P11 19-APR-78 11:41 133 TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED 


STREETER EAE AAA AERA REAR AAEEEEKEREE 


;*TEST 34 TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED 


WeASSAGARRRRRRRARRRRARAASARASSLASAESASESESESE SALES ESE SEES ERR SS SY 


000004 TST34: 
SCLEAR EVERYTHING 
012242 C,WRPSW s;SET PSW TO PRIORITY 7 


172342 SAVE RECEIVE VECTOR 

010054 172334 #2$,aRVECT :POINT RCVR VECTOR TO ERROR REPORT 
000004 172322 #BIT2,aTCSR SET MAINTENANCE WRAP 

172320 aTBUF SEND A CHARACTER 

172306 : @RCSR WAIT FOR RECEIVER DONE 


1$ 
000100 172276 #B1T6,aRCSR ENABLE INTERRUPTS 
:GIVE TIME FOR INTERRUPT 
3$ CONTINUE TEST 
000004 172270 : #BIT2,aTCSR ;CLEAR MAINTENANCE BIT 
nti cata RESTORE SP AFTER INTERRUPT 


sRCVR INTERRUPTS AT PRIORITY 7 


010066 042777 000100 172252 : #B1T6,aRCSR ;CLEAR INTERRUPT ENABLE 

010074 012777 010122 172254 #4$,aRVECT ;POINT RCVR VECTOR TO ERROR REPORT 
010102 004737 012242 PC ,WRPSW :SET PSW TO PRIORITY 3 

010106 000140 -WORD 140 


010064 104073 


010110 000240 :GIVE TIME FOR ANY INTERRUPT 
010112 042777 000004 172232 #BIT2,aTCSR ;CLEAR MAINTENANCE BIT 
010120 000405 5$ :BR TO END OF TEST, IF NO INTERRUPT 


010122 042777 000004 172222 : #BIT2,aTCSR ;CLEAR MAINTENANCE BIT 
010130 022626 (SP)+,(SP)+ RESTORE SP AFTER INTERRUPT 


010132 104074 74 
sRCVR INTERRUPT REQUEST PASSED WITH BIT6 CLEAR 
010134 010377 172216 : R3,aRVECT sRESTORE RECEIVE VECTOR 





: 3 
»-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 56 SEQ 0056 
CZDLDC.P11 19-APR-78 11:41 134 TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED 


2272 

2273 

2274 eC titre trite tii rr iri irri iii itiiiiiiiiii iii iii iiiit iit) 
2275 s*TEST 35 TEST RECEIVER FOR DOUBLE INTERRUPTS 

2276 SRR RRRREATEE EERE EEE RERE REE ROTH EE THE REE RHERE RHEE REE E EERE 
2277 010140 000004 TST35: SCOPE 

2278 010142 000005 RESET sCLEAR EVERYTHING 

2279 010144 017703 172206 MOV @RVECT,RS sSAVE RECEIVE VECTOR 

2280 010150 017704 172204 MOV @RPSW,R4 sSAVE RECEIVE PSW VECTOR 

2281 010154 012777 010236 172174 MOV #2$,aRVECT :POINT RCV VECTOR TO CONTINUE TEST 
2282 010162 012777 000340 172170 MOV #340 ,aRPSW ;SET PRIORITY TO 7 AFTER INTERRUPT 
2283 010170 004737 012242 JSR PC ,WRPSW SET PSW TO PRIORITY 3 

2284 010174 000140 -WORD 140 

2285 010176 052777 000004 172146 BIS #BIT2,aTCSR ;SET MAINTENANCE WRAP 

2286 010204 005077 172144 CLR aTBUF ;SEND A CHARACTER 

2287 010210 105777 172132 1$: TSTB @RCSR ;WAIT FOR RCVR DONE 

2288 010214 100375 BPL 1$ 

2289 010216 042777 000004 172126 BIC #B1T2,aTCSR CLEAR MAINTENANCE BIT 

2290 010224 052777 000100 172114 BIS #BIT6,aRCSR sENABLE RCV INTERRUPTS 

pad 010232 000240 NOP GIVE SOME TIME 

2293 010234 104075 ERROR 75 

0! ;RCVR INTERRUPT DID NOT OCCUR 
2296 010236 022626 2$: CMP (SP)+, (SP) + RESTORE SP AFTER INTERRUPT 

2297 010240 012777 010276 172110 MOV #3$,aRVECT ;POINT RCV VECTOR TO ERROR REPORT 
2298 010246 004737 012242 JSR PC ,WRPSW sRESET PSW TO PRIORITY 3 

2299 010252 000140 -WORD #140 

2300 010254 000240 NOP GIVE SOME TIME 

2301 010256 042777 000100 172062 BIC #B1T6,aRCSR CLEAR INTERRUPT ENABLE 

2302 010264 010377 172066 MOV R3,aRVECT sRESTORE RECEIVE VECTOR 

2303 010270 010477 172064 MOV R4,aRPSwW sRESTORE RECEIVE PSW VECTOR 

Saae 010274 000402 BR 4$ :BR TO END OF TEST 

2306 010276 022626 3$: CMP (SP)+,(SP)+ ;RESTURE SP AFTER INTERRUPT 

2307 010300 104076 ERROR 76 

2308 RECEIVER RE-INTERRUPTED 


2309 010302 010377 172050 4$: MOV R3,aRVECT sRESTORE RECEIVE VECTOR 





, 7 
~-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 57 SEQ 0057 
DC.P11 19-APR-78 11:41 135 TEST RECEIVER FOR DOUBLE INTERRUPTS 


OES S SSCS CCST P irre eer irr errr iri iii titi ici iii i ii iit 
s*TEST 36 TEST THAT RCVR INTERRUPT CLEARS BY READING RBUF 
OER SSCS CSO OOS S otter errr ett i ric i Vici i ii tic iti tic atte its 


010306 000004 TST36: 
; CLEAR EVERYTHING 


012242 PC,WRPSW SET PSW PRIORITY TO 7 
~-WORD 340 
172032 @RVECT,R3 SAVE RECEIVE VECTOR 
010412 172024 #2$,aRVECT :POINT RCV VECTOR TO ERROR REPORT 
000100 172006 #BIT6,aRCSR SET RCVR INTERRUPT ENABLE 
000004 172004 #BIT2,aTCSR SET MAINTENANCE WRAP 
172002 aTBuF SEND A CHARACTER 
171770 : — WAIT FOR DONE (INTERRUPT) 


$ 
000004 171764 #BIT2,aTCSR ;CLEAR MAINTENANCE BIT 
171756 @RBUF ;READ RBUF TO CLEAR PENDING INTERRPUT 
012242 PC ,WRPSW SET PSW TO PRIORITY 3 


«WORD 140 
sALLOW TIME FOR ANY ERRONEOUS INTERRUPT 


000100 171736 ne :NO INTERRUPT-CLEAR INT. ENABLE 


010410 000402 


010412 022626 : (SP)+,(SP)+ RESTORE SP AFTER INTERRUPT 
010414 104077 77 READING RBUF DID NOT CLEAR INTERRUPT 


010416 010377 171734 : R3,aRVECT RESTORE RECEIVE VECTOR 





G 5 
-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 58 SEQ 0058 
P11 19-APR-78 11:41 136 TEST THAT RCVR INTERRUPT CLEARS BY READING RBUF 


PRR A RARER AAA E TERETE EEE EEE REE E EKER EERE REE Eee 
s*TEST 37 TEST THAT RESET CLEARS RECEIVE INTERRUPT 
RRR RRR AREER EERE EEE EEE EERE EERE EERE EEE 


010422 000004 7 1S137: 
SCLEAR EVERYTHING 


012242 PC ,WRPSW ;SET PSW TO PRIORITY 7 
-WORD 340 
171716 @RVECT,R3 SAVE RECEIVE VECTOR 
010520 #2$,aRVECT ;POINT RCV VECTOR TO ERROR REPORT 
000100 #BIT6,aRCSR ;SET RCV INTERRUPT ENABLE 
000004 #BIT2,aTCSR SET MAINTENANCE WRAP 
000377 #377 ,aTBUF ;SEND AN ALL 1'S CHARACTER 
171652 : @RCSR sWAIT FOR RCV DONE 


1$ 
;CLEAR RCV INTERRUPT & RBUF 
012242 PC,WRPSW SET PSW TO PRIORITY 3 


-WORD 140 
;ALLOW TIME FOR AN ERRONEOUS INTERRUPT 


000100 1716306 #BIT6,aRCSR :NO INTERRUPT-CLEAR INT. ENABLE 
010516 000402 3$ ; CONTINUE TEST 


010520 022626 : (SP)+,(SP)+ ;RESTORE SP AFTER INTERRUPT 
010522 104100 100 RESET DID NOT CLEAR RCVR INTERRUPT 


010524 010377 171626 : R3,a@RVECT RESTORE RECEIVE VECTOR 





H 5 


~-MAIN, MACY11 30A(1052) 19-APR-78 11:44 PAGE 59 SEQ 0059 . 
CZDLDC.P11 19-APR-78 11:41 137 TEST THAT RESET CLEARS RECEIVE INTERRUPT C2 

2367 

2368 

2369 STREETER EE EEE EEE RA EEE ERE 

2370 s*TEST 40 TEST THAT THE “‘OR'' ERROR (BIT14) & ‘‘ERROR'' (BIT15) CAN BE SET 

2371 SLUR REE REE EEEEEEERERE EEE EE 

2372 010530 000004 TST40: SCOPE 

2373 010532 032777 002000 170300 BIT #BIT10,aSWR :1S THIS TEST ENABLED 

2374 010540 001432 BEQ TST41 : IF NOT ENABLED, BR TO NEXT TEST 

2375 010542 000005 RESET CLEAR EVERYTHING 

2376 010544 052777 000064 171600 BIS #BIT2,aTCSR SET MAINTENANCE WRAP 

2377 010552 012700 000003 MOV #3,R0 ;SET CHARACTER COUNT TO SEND 3 CHAR. 

2378 010556 005077 171572 1$: CLR aTBUF ;LOAD TRANSMIT BUFFER 

2379 010562 105777 171564 2s: TSTB aTCSR ;WAIT FOR TRANSMIT DONE 

2380 010566 100375 BPL 2$ 

2381 010570 005300 DEC RO ;DECREMENT CHARACTER COUNT 

2382 010572 001371 BNE 1$ 7BR IF ALL CHARACTERS NOT TRANSMITTED 

2383 010574 042777 000004 171550 BIC #BIT2,aTCSR ;CLEAR MAINTENANCE BIT 

2384 010602 032777 040000 171540 BIT #B1T14,aRBUF ; TEST FOR ‘'OR'’ ERROR FLAG 

2385 010610 001001 BNE 3$ :BR, IF SET 

2386 010612 104101 ERROR 101 

taf :"’OR"’ ERROR FLAG DID NOT SET 

2389 010614 032777 100000 171526 38: BIT #B1T15,aRBUF i TEST “‘ERROR'' FLAG 

2390 010622 001001 BNE 4$ :BR, IF SET 

2391 010624 104102 ERROR 102 

2392 ;"ERROR" FLAG DID NOT SET WITH ‘‘OR’’ FLAG 


2393 010626 43: 


-MAIN. 


MACY11 30A(1052) 


CZDLDC.P11 


010712 


010714 
010722 


010724 
010730 
010732 
010740 


010742 


19-APR-78 


19=APR-78 11:41 


000004 


001372 


042777 
104103 


105777 
001404 
042777 
104103 


042777 


000400 


000004 
177777 
171464 


171460 
000001 


171442 


000005 


171420 
000005 


000005 


170202 


71502 
7 


1 
171476 


171454 
001026 


171430 


171412 


171402 


11:44 PAGE 60 
T40 


I 5 


TEST THAT THE "‘OR'’ ERROR (B11T14) & ‘‘ERROR'' (BIT15) CAN BE SET 


STEERER EERE EEE EEE EERE EERE RARER AE ERATE REE KEE 


s*TEST 41 


TEST THAT BREAK TRANSMITS ALL ZEROES 


We PeSRRSRARRRBRSRBRSARRAASARSASALALALASASASESE SESE SESE LESSER E SERS SS 


TST41: SCOPE 


1$: TSTB 


28: MOVB 


CONT41: TSTB 


3$: BIC 


#BIT8,aSWR :1S BREAK FUNCTION TEST ENABLED? 
TST42 ;BR TO NEXT TEST, IF NOI ENABLED 
CLEAR EVERYTHING 

#BIT2,aTCSR SET MAINTENANCE WRAP 

#-1,aTBUF ; TRANSMIT ALL ONES TO RCVR 

a sWAIT FOR RCVR DONE 

@RBUF ;CLEAR DONE (LEAVING ALL ONES IN RbBUF) 
#BITO,aTCSR ; TRANSMIT BREAK 

RO ;CLEAR A TIMER 

@RCSR,$BDDAT sWAIT FOR RCVR DONE 

CONT41 BR IF DONE 

RO :1F NOT, INCREMENT TIMER 

2$ BR IF TIME REMAINS 


#BITO!BIT2,aTCSR ;CLEAR MAINTENANCE & BREAK BITS 
103 ;BREAK DID NOT TRANSMIT ANYTHING 


@RBUF ;CHECK RECEIVE BUFFER FOR ZERO 

$ BR, IF ZERO 
#BITO!BIT2,a@TCSR ;CLEAR MAINTENANCE & BREAK BITS 
103 ;BREAK DID NOT TRANSMIT ALL ZEROES 


#BITO!BIT2,aTCSR ;CLEAR MAINTENANCE & BREAK BITS 


SEQ 0060 


J 5 
-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 61 SEQ 0061 
CZDLDC.P11 19=APR-78 11:41 141 TEST THAT BREAK-TRANSMITS ALL ZEROES 


PEC S SoS CSCS SSP c eerie teri irri iret i iii titi iit iis iti i iii iit 
*TEST 42 TEST THAT ‘'FR'’ ERROR CAN BE SET DURING BREAK 
POE ce C TIS C Cotte titi elitr rit i titi istitiitiiitati tii at i tit iis) 
010750 000004 TST42: 
010752 002000 170060 #B1T10,aSwWR 31S THE ‘TEST ERROR FLAGS*’ BIT SET 
010760 TST43 ;BR TO NEXT TEST, IF NOT SET 
010762 000400 170050 #BIT8,aSwR :1S BREAK FUNCTION ENABLED 
010770 TST43 :BR TO NEXT TEST, IF NOT SET 
; CLEAR EVERYTHING 
000004 #BIT2,aTCSR ;SET MAINTENANCE WRAP 
000001 #BITO,aTCSR ; SEND BREAK 
171340 aTBUF ; TRANSMIT A CHARACTER TO TIME BREAK 
171326 : @RCSR ;WAIT FOR RCVR DONE 


1$ 
000005 #BITO!BIT2,aTCSR ;CLEAR MAINTENANCE & BREAK BITS 


020000 #B1T13,aRBUF : CHECK FOR FRAMING ERROR FLAG 
011036 001001 2$ :BR, IF SET 


011040 104104 104 
;BREAK DID NOT SET FRAMING ERROR 
011042 032777 100000 171300 : #B1T15,aRBUF ;TEST ‘‘ERROR''FLAG 
011050 001001 3$ :BR, IF SET 
011052 104114 114 


011054 


;""ERROR'’ FLAG DID NOT SET WITH ‘‘OR'' FLAG 





K 5 
~-MAIN, MACY11 30A(1052) a 78 11:44 PAGE 62 SEQ 0062 
CZDLDC.P11 19-APR-78 11:41 T42 TEST THAT ‘‘FR'’ ERROR CAN BE SET DURING BREAK 


PRR RAR ARATE AREER RARE ARETE EAT EET REAR ERE Eee 
s*TEST 43 TEST DATA PATH FROM TRANSMITTER TO RECEIVER USING MAINTENANCE WRAP 


‘APP PPP PARR REPRE RRRSARALARARRRRSLASAALE SAL ELE LESS SASSER SEES SSS 


011054 000004 18143: SCOPE 


011056 000005 CLEAR EVERYTHING 
011060 005001 R1 ;CLEAR REGISTER FOR TEST DATA 
011062 052777 000064 171262 #BIT2,aTCSR SET MAINTENANCE WRAP 
; TRANSMIT A BINARY COUNT PATTERN =- UP 
:TO THE BIT POSITION INDICATED BY THE 
CONTENTS OF LOCATION ‘'SUSH "’ 
011070 005201 : R1 : INCREMENT THE TEST DATA 
R1,aTBUF :XMIT A CHARACTER 
— WAIT FOR RECEIVER DONE 
@RBUF ,R2 GET RECEIVED CHARACTER 
Q#SUSWR,R1 :CLEAR LOWEST UNUSED DATA BIT POSITITON IN TEST DATA 
R2 COMPARE DATA 
BR, IF NON-COMPARE 
; TEST XMIT DATA FOR ZERO 
BR, IF FINISHED 
$ ; CONTINUE IF NOT 
001024 1 : R1,$GDDAT STORE THE EXPECTED DATA 
001026 R2,$BDDAT STORE RECEIVED DATA 
000004 171206 #B1T2,aTCSR ;CLEAR MAINTENANCE BIT 


104105 105 DATA COMPARE DATA 
042777 000004 171176 : #BIT2,aTCSR ;CLEAR MAINTENANCE BIT 


eet e eee iret i trite rit iri ri tit iiiiitiiiiiitiiiiti ii titi it) 
:ATEST 44 TEST DATA PATHS USING WRAP CABLE 
Ie S CIS S STi e titi i iii itr itit iti c iit ti tii iit t titi i iti titi titi tt 
011154 000004 18144: 
011156 032777 000200 167654 B #BIT7,aSWR ;1S THIS TEST ENABLED 
011164 001432 TST45 :BR, IF NOT 
011166 000005 :CLEAR EVERYTHING 
011170 005001 ;CLEAR REGISTER FOR TEST DATA 
TRANSMIT A BINARY COUNT PATTERN = UP 
;TO THE BIT POSITION INDICATED BY THE 
CONTENTS OF LOCATION ‘‘SUSWR"’ 
011172 105201 : 1 ; INCREMENT THE TEST DATA 
011174 171154 MIT A CHARACTER 
011200 RO ;CLEAR A TIMER 
011202 171140 3 WAIT FOR RECEIVER DONE 
011206 ;BR IF DONE 
011210 ; INCREMENT TIMER IF NOT 
011212 001373 ;BR IF TIME REMAINS 


011214 104064 RECEIVER DONE NOT SET 


011216 017702 : @RBUF ,R2 :GET RECEIVED CHARACTER 
011222 043701 a#SUSWR,R1 CLEAR LOWEST UNUSED DATA BIT POSITITON IN TEST DATA 





. 
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~-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 63 SEQ 0063 
CZDLDC.P11 19=APR-78 11:41 144 TEST DATA PATHS USING WRAP CABLE 

2509 011226 020102 CMP R1,R2 COMPARE DATA 

2510 011230 001003 BNE 4$ BR, IF NON-COMPARE 

2511 011232 105701 TSTB R1 : TEST XMIT DATA FOR ZERO 

2512 011234 001406 BEQ TST45 :BR, IF FINISHED 

2513 011236 000755 BR 1$ CONTINUE IF NOT 

2514 011240 010137 001024 4$: MOV R1,$GDDAT STORE EXPECTED DATA 

334] 011244 010237 001026 MOV R2,$BDDAT STORE RECEIVED DATA 


2517 011250 104106 ERROR 106 ;DATA COMPARE ERROR WITH WRAP CABLE 





MACY11 30A(1052) 
P11 


011252 


011456 
011460 


011502 
011504 
011506 
011514 
011516 


011520 


19-APR-78 1 


000004 


000140 
062700 


000005 
104107 
023737 
001402 
000005 


104110 


wae -78 11:44 PAGE 64 
1:41 144 


002336 
000100 
011720 


011726 


011742 
170702 
012242 


000000 
000001 


000100 


011730 


Mm 5 
SEQ 0064 


TEST DATA PATHS USING WRAP CABLE 


APP PAPA RRR S AS ARR RASA AAAS ALAA AL ASAE SELES SRSA SERS EAS LEAS SS 


SATEST 45 


TEST DL11-W LOGIC BY EXERCISING THE XMIT,RECEIVE, & CLOCK(IF AVAILABLE) 


SRR EATER AEE 


T8145: 


167456 
171016 
171002 
170740 


170732 
170720 


170652 


011726 3$: 


:CLEAR EVERYTHING 
— ;SET PRIORITY TO 7 
aTVECT.R3 SAVE XMIT VECTOR 
@RVECT,R4 SAVE RECEIVE VECTOR 
@RTCVT,RS SAVE CLOCK VECTOR 
aTPSW,STPSW SAVE XMIT PSW VECTOR 
@RPSW,SRPSW SAVE RECEIVE PSW VECTOR 
@RTCPSW,SCPSW ;SAVE CLOCK PSW VECTOR 
#XMIT,@TVECT :POINT TRANSMIT VECTOR TO TRANSMIT ROUTINE 
aTPSw ALLOW INTERRUPTS AFTER XMIT INTERRUPT 
#RCV,@RVECT ;POINT RECEIVE VECTOR TO RECEIVE ROUTINE 
aRPSW sALLOW INTERRPUTS AFTER RCVR INTERRUPT 
CTSTFL 71S CONSOLE UNDER TEST? 
1$ :1F NOT SKIP CLOCK SET UP 
#B1T6,aSWR :1F YES, ARE CLOCK TEST + aaa 
1$ IF YES, SKIP CLOCK SET U 
#CLK ,@RTCVT ;POINT VECTOR TO CLOCK INTERRUPT ROUTINE 
@RTCPSW ;ALLOW INTERRUPTS AFTER CLOCK INTERRUPT 
#BIT6,aLKS ENABLE CLOCK INTERRUPTS 
#BIT2,aTCSR SET MAINTENANCE WRAP 
#B1T6,aTCSR sENABLE TRANSMIT INTERRUPTS 
#B1T6,aRCSR ENABLE RECEIVE INTERRUPTS 
sCLEAR XMIT INTERRUPT COUNTER 
:CLEAR RCV INTERRUPT COUNTER 
CLEAR A REGISTER FOR TEST DATA USE 
CLEAR TIMER 
sPOINT R2 TO RECEIVE DATA STORAGE 
:SEND FIRST CHARACTER 
SET PSW TO PRIORITY 3 


WAIT FOR INTERRUPTS 
:ADD INSTRUCTIONS ARE USED TO LENGTHEN LOOP TIME 
; TO COVER THE SLOWEST BAUD RATE ON THE FASTEST CPU 


2$ 

#BIT6,aTCSR FINISHED ENTIRE TRANSMISSION 

3$ :BR, IF INTERRPUTS ARE DISABLED (FINISHED) 
CLEAR EVERYTHING 


107 : TRANSMIT INTERRUPT TIMEOUT IN MAIN. DATA TEST 
nace ie een NUMBER OF INTERRUPTS 
UAL 


:BR, IF 
CLEAR EVERYTHING 


140 


110 RECEIVER DID NOT GET FULL oe 


F RCVCNT=0, NO DATA RECEIVED 
IF RCVCNT=?, THEN (XMTCNT-RCVCNT) 
EQUALS THE NO, OF INTERRUPTS LOST. 





o 
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~-MAIN. MACY11 30A(1052) 
8 1 TEST DL11-W LOGIC BY EXERCISING THE XMIT,RECEIVE, & CLOCK(IF AVAILABLE) SIMULTAN 


CZ0LDC.P11 19-APR-7 


ae 
1:41 


011522 
011526 
011530 
011536 
011540 
011544 
011546 


011550 


011574 
011576 
011602 
011606 


011610 


011646 
011650 


005737 


001001 
104113 
000005 


000405 


014037 
010137 
104111 


010377 
010477 
010577 
013777 
013777 
013777 
000501 


005237 


000002 


017722 
005237 
005000 
000002 


005237 
000002 


000000 
000000 
000000 
000000 
000000 


002336 
000100 
011732 


011742 


000040 


001026 
001024 


170546 


011740 


011730 
000040 
000100 
170454 


170440 
011726 


011732 


167302 


170532 
170520 
170544 


170460 


CLK: 


RCVCNT: .WORD 
XMTCNT: .WORD 
CLKCNT: 
STPSW: 
SRPSW: 


CTSTFL 

5$ 
#BIT6,aSWR 
5$ 

CLKCNT 

5$ 


113 


#BUF ,RO 
R1 
(RO)+,R1 
6$ 


R1 
#BIT5S,R1 
COMP 

7$ 


-(RO) ,SBDDAT 
+E aaa 


R3,aTVECT 
R4,aRVECT 
R5,a@RTCVT 
STPSW,aTPSW 
SRPSW,a@RPSW 
SCPSW,aRTCPSW 
ENDEV 


XMTCNT 

R1 

#BIT5,R1 

XCONT 

#B1T6,aTCSR 
RET 


x 
R1,a@TBUF 
RO 


@RBUF , (R2)+ 
RCVCNT 
RO 


CLKCNT 


1S CONCOLE UNDER TEST? 

:I1F NOT, SKIP CLOCK COUNT CHECK 

:IF YES, ARE CLOCK TESTS DISABLED? 

:IF YES, SKIP CLOCK COUNT CHECK 

CHECK FOR AT LESST ONE CLOCK INTERRUPT 
:BR IF INTERRUPTS OCCURRED 


NO CLOCK INTERRUPTS IN EXERCISER 


CLEAR EVERYTHING 

s;LOAD RECEIVED DATA POINTER TO RO 
:SET UP REGISTER FOR COMPARISON 
COMPARE XMIT & RCV DATA 

:BR, IF NOT EQUAL 

: INCREMENT COMPARE DATA 

FINISHED CHECKING RECEIVED DATA? 
BR, IF NOT FINISHED 

BR TO END OF TEST 


STORE BAD DATA FOR ERROR REPORT 
STORE GOOD DATA FOR ERROR REPORT 
DATA COMPARE ERROR IN EXERCISER 


RESTORE XMIT VECTOR 

sRESTORE RECEIVE VECTOR 

sRESTORE CLOCK VECTOR 

RESTORE XMIT PSW VECTOR 

sRESTORE RECEIVE PSW VECTOR 
sRESTORE CLOCK PSW VECTOR 

:BR TO END OF DEVICE TEST ROUTINE 


; INCREMENT XMIT INTERRUPT COUNTER 
: INCREMENT TEST DATA 
;SEND DATA PATTERN FROM 00 --> 37 


BR, IF MORE DATA TO BE SENT 

CLEAR XMIT INTERRUPT ENABLE 

sRETURN, WITHOUT SENDING ANY MORE DATA 
SEND NEW CHARACTER 

;CLEAR TIMER 


TURN 


STORE RECEIVED DATA 

; INCREMENT RCV INTERRUPT COUNTER 
;CLEAR TIMER 

; RETURN 


: INCREMENT CLOCK INTERRUPT COUNT 
RETURN 
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CZDLO0C.P11 19-APR-78 11:41 145 TEST DL11-W LOGIC BY EXERCISING THE XMIT,RECEIVE, & CLOCK(IF AVAILABLE) SIMULTAN 
2630 011740 000000 SCPSW: .WORD 0 
eee 011742 000044 BUF : -BLKW 44 
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MACY11 30A(1052) As a 78 11:44 PAGE 67 SEQ 0067 
-P11 19-APR-78 1 145 TEST DL11-W LOGIC BY EXERCISING THE XMIT,RECEIVE, & CLOCK(IF AVAILABLE) SIMULTAN 


END OF DEVICE PASS ROUTINE 


012052 005037 001002 : STSTNM ;CLEAR TEST NO. COUNT FOR SCOPE ROUTINE 
001076 I SDEVCT : INCREMENT DEVICE COUNTER 
002342 001076 TMP2 , SDEVCT sALL DEVICES TESTED 
$SEOP :BR, IF YES 
002336 CTSTFL :CLEAR CONSOLE UNDER TEST FLAG 
012076 000137 003500 TSTDEV :GO TEST NEXT DEVICE 


-SBTTL END OF PASS ROUTINE 


PES PS ECTS SSCP etre rrr irri irri rit ii titi ati titi tii iiis 
;* INCREMENT THE PASS NUMBER (S$PASS) 

:*I1F THERES A MONITOR GO TO IT 

;*IF THERE ISN'T JUMP TO GOAGIN 


012102 SEOP: 
000004 
001002 STSTNM :;ZERO THE TEST NUMBER 
001074 SPASS 7; INCREMENT THE PASS NUMBER 
100000 001074 — fag ALLOW A NEG. NUMBER 
+ : 


SEOPCT: . 


1 
$DOAG 


N ss¥eés 
 eriheenaies ;:RESTORE COUNTER 


SENDCT: . 


012172 . ENDMG 3; TYPE ‘‘END PASS"’ 
000042 $GET42: a#42,R0 3:GET MONITOR ADDRESS 
SDOAGN :;BRANCH IF NO MONITOR 
3;CLEAR THE WORLD 
SENDAD: PC, (RO) ::GO0 TO MONITOR 
3;SAVE ROOM 


7 FOR 
000240 s3ACT11 
SDOAGN: 
000137 a(PCc)+ 3 RETURN 
012206 SRTINAD: . GOAGIN 
012166 377 377 000 SENULL: . -1,-1,0 ;zNULL CHARACTER STRING 
012172 EVEN 
012172 005015 047105 020104 ENDMG: .ASCIZ <CR><LF>/END PASS / 
012200 040520 051523 000040 





-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 68 SEQ 0068 
CZDLDC.P11 19=APR-78 11:41 


END OF PASS ROUTINE 


012206 005037 001076 GOAGIN: CLR SDEVCT CLEAR DEVICE COUNT 

012212 022737 000001 002342 CMP 31S THERE ONLY ONE DEVICE UNDER TEST? 
012220 001004 :BR, IF NOT 

012222 012706 001000 RESET STACK POINTER 

012226 000137 003622 TST1 :GO DO ANOTHER PASS 


012232 005037 001100 ;CLEAR UNIT NUMBER 
012236 000137 003424 J 


012242 011646 MOV(SP) ,-(SP) ;COPY RETUN PC 

012244 013616 MOV a(SP)+, (SP) sMOVE NEW PSW TO STACK 
012246 062746 000002 ADD #2,-(SP) ADJUST JSR RETURN 
012252 000002 RTI ;POP RETURN PC & NEW PSW 


; SUBROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS 


012254 012600 CATCH: (SP)+,R0 GET ADDRESS OF TRAP VECTOR + 4 

012256 162700 000004 S #4,RO ;ADJUST TO POINT TO TRAP ADDRESS 

012262 010037 012302 RO,BDOVECT STORE TRAP OR INTERRUPT ADDRESS 

012266 016637 000002 012300 2(SP) ,OLDPC :GET PC WHERE TRAP OR INTERRUPT OCCURRED 
012274 104112 112 REPORT ERROR 


012276 000000 PROGRAM MUST BE RESTARTED AT THIS POINT 
012300 000000 OLDPC: .WORD 
012302 000000 BDVECT: .WORD 





MAIN. MACY11 weed 


CZDLDC.P11 


012304 


012464 


19-APR-7 


105237 


104401 
122737 


013716 
022737 
001001 
000000 


000002 


19-APR-78 
11:41 


001003 
001002 


020000 


012466 
001063 


000001 


001014 
013170 


166422 


001000 


001010 
001060 


001060 
012152 


166522 


001016 
001014 
166466 


001106 
012406 


166406 


000042 


11 


744 PAGE 69 
END OF PASS ROUTINE 


Pee S SPS r titi ie irri iret iri r iii ii titi tisiiisiiiii iii iy) 
THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
> *SAVE THE ERROR ITEM NUMBER AND ADDRESS OF THE ERROR CALL 

:*AND GO TO SERRTYP ON ERROR 
he SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


SERROR: 
7$: 


HALT ON ERROR 


INHIBIT ERROR TYPEOUTS 


LOOP IN ERROR 


N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


STR ARA RR E REAR E EERE RARER ERE EEE AREER 


SERFLG 
7$ 


STSTNM,@DISPLAY 
SERTTL 


(SP), SERRPC 
#2, SERRPC 


@SERRPC ,SITEMB 


#B1T13,aSwWR 

20$ 

PC, SERRTYP 
RLF 


#APTENV,SENV 
2$ 


SITEMB,21$ 
ceil 


0 

228 

asSwR 

3$ 

> ladies 


4 
SLPERR, (SP) 
SESCAPE 


5$ 
SESCAPE, (SP) 
#SENDAD ,a#42 
6$ 


SET THE ERROR FLAG 

;DON'T LET FLAG GO TO ZERO 

sDISPLAY TEST NUMBER - ERROR FLAG 
: INCREMENT ERROR COUNT 

GET ADDRESS OF ERROR INSTRUCTION 


STRIP AND SAVE THE ERROR ITEM CODE 
SKIP TYPEOUT IF SET 
SKIP TYPEOUTS 


:GO TO USER ERROR ROUTINE 


;RUNNING IN APT MODE 

;NO, SKIP APT ERROR REPORT 

;SET ITEM NUMBER AS ERROR NUMBER 
REPORT FATAL ERROR TO APT 


;APT ERROR LOOP 

HALT ON ERROR 

SKIP IF CONTINUE 

HALT ON ERROR! 

TEST FOR CHANGE IN SOFT~SWR 
;LOOP ON ERROR SWITCH SET? 
:BR IF NO 


; N 

;FUDGE RETURN FOR LOOPING 

: CHECK FOR AN ESCAPE ADDRESS 

7;BR IF NONE 

:FUDGE RETURN ADDRESS FOR ESCAPE 


;ACT-11 AUTO-ACCEPT? 
R IF NO 


; RETURN 


SEQ 0069 





MACY11 a 
Pil 19-APR-78 1 


012466 
012466 
012472 
012474 
012476 
012502 


012504 
012510 


012616 


104401 
010046 
005000 
153700 
001004 
013746 


104402 


000207 
013046 


012622 


19-APR-78 
:4" 


001063 


001014 


001016 


001146 
012540 


001063 
012556 


001063 


001063 


012616 
oor 


11:44 PAGE 70 


END OF PASS ROUTINE 


-SBTTL ERROR MESSAGE TYPEOQUT ROUTINE 


FRR AERA RARER EERE EEE EEE EERE TERE AERA ERE EEE 


STHIS ROUTINE USES THE “ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE WHICH 


;*ERROR IS TO BE REPORTED. 


IT THEN OBTAINS, FROM THE ‘‘ERROR TABLE'' (S$ERRTB), 


:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
TYPE 


. SCRLF 
oe 


R 
a#$1TEMB,RO 
1$ 


SERRPC,-(SP) 


RO 
#SERRTB,RO 
(RO)+,2$ 
3$ 


0 

» SCRLF 
(RO)+,4$ 
5$ 


0 

- SCRLF 
(RO) ,RO 
7$ 


(SP)+,RO 
, SCRLF 
PC 


a(RO)+,-(SP) 


: 3 ""CARRIAGE RETURN’ @ ‘'LINE FEED" 
:SAVE RO 
PICKUP THE ITEM INDEX 


:1F ITEM NUMBER IS ZERO, JUST 

7; TYPE THE PC OF THE ERROR 

7:SAVE SERRPC FOR TYPEOUT 

;;ERROR ADDRESS 

ee A aes ASCIICALL DIGITS) 
sADJUST THE INDEX SO THAT IT WILL 
33 WORK FOR THE ERROR TABLE 


3:FORM TABLE POINTER 

s;PICKUP “ERROR MESSAGE'’ POINTER 
3:SKiP TYPEOUT IF NO POINTER 

si: TYPE THE ‘‘ERROR MESSAGE"’ 
3:""ERROR MESSAGE'' POINTER GOES HERE 
z:""CARRIAGE RETURN’ & ‘LINE FEED" 
7:PICKUP “DATA HEADER'' POINTER 
3:SKIP TYPEOUT IF 0 

7; TYPE THE ‘DATA HEADER" 

77''DATA HEADER’ POINTER GOES HERE 
37'"CARRIAGE RETURN’ & “LINE FEED" 
7 ;PICKUP ‘DATA TABLE’ POINTER 
3:G0 TYPE THE DATA 

7 ;RESTORE RO 

3:""CARRIAGE RETURN’ & “‘LINE FEED" 
7 RETURN 

7;SAVE a(RO)+ FOR TYPEOUT 

3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
3271S THERE ANOTHER NUMBER? 

7:BR IF NO 

7: TYPE TWO(2) SPACES 

3; LOOP 

3;TWO(2) SPACES 
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~-MAIN. MACY11 30A(1052) 


CZDLDC.P11 


012622 


012672 


012674 


012776 


012737 
012737 
010046 


000776 


012737 


000122 


19-APR-78 11 
19-APR-78 11:41 


012762 
000340 


166162 
012766 
012674 


012762 
012766 
166126 


012622 
000340 
012766 
012766 


047520 


000024 
000026 


000024 


000024 


000024 
000026 


042527 
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ERROR MESSAGE TYPEQUT ROUTINE 


-SBTTL POWER DOWN AND UP ROUTINES 


SRE EERE ERE EERE EEE EERE EERE REET E REE 


;*POWER DOWN ROUTINE 


SPUR AEE AERA EE ERE REE EERE EERE EERE REE EEE 


SPWRDN: MOV 
MOV 


#SILLUP ,a#PWRVEC ;SET FOR FAST UP 
#340, ,a#PWRVEC+2 ;PRIO: 

RO,-(SP) PUSH RO ON STACK 
R1,-(SP) PUSH R1 ON STACK 
R2,-(SP) ;PUSH R2 ON STACK 
R3,-(SP) ;PUSH R3 ON STACK 
R4,-(SP) ;PUSH R4 ON STACK 
R5,-(SP) ;PUSH R5 ON STACK 
@SWR,-(SP) ;PUSH @SWR ON STACK 
SP, SSAVR6 SAVE SP 
#SPWRUP ,a#PWRVEC ;SET UP VECTOR 


“2 HANG UP 


Pett e eee PP RRR RR RRRRRRARRRRRASERRRRASESAL ALES ARSE SER SERA S EE SS DS 


> *POWER UP ROUTINE 


SRA EAE EEE ERE EERE EERE RARER EEE EAA ERA EAE 


$PWRUP: MOV 


1$: 


SPWRMG: . 


SILLUP: 


SSAVR6: 0 


SPOWER: 


-ASCIZ 


#SILLUP ,a#PWRVEC ;SET FOR FAST DOWN 
SSAVR6,SP GET SP 
(SP)+,@SWR :POP STACK INTO @SWR 
(SP)+,R5 
(SP)+,R4 :POP STACK INTO R4& 
(SP)+,R3 :POP STACK INTO R3 
(SP)+,R2 ;POP STACK INTO R2 
(SP)+,R1 ;POP STACK INTO R1 
(SP)+,RO :POP STACK INTO RO 
#SPWRON , @#PWRVEC ;SET UP THE POWER DOWN VECTOR 
#340 ,a#PWRVEC+2 ;PRIO:7 
SSAVR6 :WAIT LOOP FOR THE TTY 
SSAVR6 sWAIT FOR THE INC 
1$ ;0F WORD 

REPORT THE POWER FAILURE 
SPOWER ;POWER FAIL MESSAGE POINTER 


;THE POWER UP SEQUENCE WAS STARTED 
; BEFORE THE POWER DOWN WAS COMPLETE 
;PUT THE SP HERE 

<15><12>"'POWER'’ 


SEQ 0071 
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013000 


013010 
013012 
013014 


013150 


104406 
032777 
001052 
000416 


013746 


000407 
105737 


000002 


19-APR-78 11 
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040000 


000004 
013040 
177060 
000004 


000004 


001003 
001000 
001010 
001003 


001006 


166030 


000004 


165754 
001006 


001072 


001015 
165676 
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-SBTTL SCOPE HANDLER ROUTINE 


; FREER EERE REE REAR RE AEE EEA RARER 
*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 

> *AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

3*SW14=1 LOOP ON TEST 

7*SW09=1 LOOP ON ERROR 

7*CALL 

3* SCOPE 3; SCOPE=I0T 


$SCOPE: 
SW 3;TEST FOR CHANGE IN SOFT=SWR 
1$: BIT #B1T14,aSWR : LOOP ON PRESENT TEST? 
BNE SOVER YES IF SW14=1 
;WHAHASTART OF CODE FOR THE XOR TESTER###A# 
$XTSTR: BR 6$ 3: 1F RUNNING ON THE ‘’XOR'’ TESTER CHANGE 
3;THIS INSTRUCTION TO A ‘'NOP'’ (NOP=240) 

@#ERRVEC,-(SP) ;;SAVE THE CONTENTS OF THE ERROR VECTOR 
#58 ,a#ERRVEC 3:SET FOR TIMEOUT 
a#177060 3: TIME OUT ON XOR? 
(SP)+,@#ERRVEC ;;RESTORE THE ERROR VECTOR 
$SVLAD 3:G0 TO THE NEXT TEST 

5$: (SP)+, (SP)+ :;CLEAR THE STACK AFTER A TIME OUT 
(SP)+,a#ERRVEC : RESTORE THE ERROR VECTOR 
7$ LOOP ON THE PRESENT TEST 
CODE FOR THE XOR TESTER####M 
SERFLG + sHAS AN ERROR OCCURRED? 
SSVLAD :BR IF NO 
ere : LOOP ON ERROR? 


:BR IF NO 
7$: ot a aaa 7:SET LOOP ADDRESS TO LAST SCOPE 
V 


4$: SERFLG 7:;ZERO THE ERROR FLAG 
$SVLAD: STSTNM 3;COUNT TEST NUMBERS 
STSTNM,STESTN ;;SET TEST NUMBER IN APT MAILBOX 
(SP), $LPADR 7;SAVE SCOPE LOOP ADDRESS 
(SP), SLPERR 7;SAVE ERROR LOOP ADDRESS 
SESCAPE 3:CLEAR THE ESCAPE FROM ERROR ADDRESS 
#1, SERMAX 7:ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
STSTNM,@DISPLAY ;;DISPLAY TEST NUMBER 
SLPADR, (SP) sey rer -- {a ADDRESS 
sc FIX 


SEQ 0072 
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CZDLDC.P11 19-APR-78 1 SCOPE HANDLER ROUTINE 

2896 

2897 FERRER EERE EERE EEE EEE EEA EERE EERE EERE KEKE 

2898 : °§BTTL APT COMMUNICATIONS ROUTINE 

2899 PRR RARER ERATE EEE RARE EEA AERA RARER KEEEEERE REE 

2900 

2901 013152 112737 000001 013416 $ATY1: MOVB #1,SFFLG 7TO REPORT FATAL ERROR 

2902 013160 112737 000001 013414 S$ATY3: MOVB #1,$MFLG :TO TYPE A MESSAGE 

2903 013166 000403 BR SATYC 

2904 013170 112737 000001 013416 SATY4: MOVB #1,SFFLG TO ONLY REPORT FATAL ERROR 

2905 013176 SATYC: 

2906 013176 010046 MOV RO,-(SP) ;PUSH RO ON STACK 

2907 013200 010146 MOV R1,-(SP) PUSH R1 ON STACK 

2908 013202 105737 013414 TSTB SMFLG ;SHOULD TYPE A MESSAGE? 

2909 013206 001450 BEQ 5$ z1F NOT: BR 

2910 013210 122737 000001 001106 CMPB #APTENV,SENV ; OPERATING UNDER APT? 

2911 013216 004031 BNE 3$ :1F NOT: BR 

2912 013220 132737 000100 001107 BITB #APTSPOOL,SENVM :SHOULD SPOOL MESSAGE? 

2913 013226 001425 BEQ 3$ :IF NOT: BR 

2914 013230 017600 000004 MOV a4(SP),RO [GET MESSAGE ADDRESS 

2915 013234 062766 000002 000004 ADD #2,4(SP) BUMP RETURN ADDRESS 

2916 013242 005737 001066 1$: TST SMSGTYPE SEE IF DONE W/ LAST XMISSION? 

2917 013246 001375 BNE 1$ z1F NOT: WAIT 

2918 013250 010037 001102 MOV RO, SMSGAD PUT ADDRESS IN MAILBOX 

2919 013254 105720 2$: TSTB (RO)+ FIND END OF MESSAGE 

2920 013256 001376 BNE 2s 

2921 013260 163700 001102 SUB SMSGAD,RO SUB START OF MESSAGE 

2922 013264 006200 ASR RO :GET MESSAGE LENGTH IN WORDS 

2923 013266 010037 001104 MOV RO, SMSGLGT PUT LENGTH IN MAILBOX 

2924. 013272 012737 000004 001066 MOV #4, SMSGTYPE : TELL APT TO TAKE MESSAGE 

2925 013300 000413 BR 5$ - 

2926 013302 017637 000004 013326 38: MOV a4(SP),4$ PUT MSG ADDR IN JSR LINKAGE - 

2927 013310 062766 000002 000004 ADD #2,4(SP) ;BUMP RETURN ADDRESS 

2928 013316 013746 177776 MOV 177776,-(SP) PUSH 177776 ON STACK 

2929 013322 004737 013420 JSR PC, $TYPE =CALL TYPE MACRO 

2930 013326 000000 4$: -WORD 0 

2931 013330 5$: 

2932 013330 105737 013416 10$: TSTB SFFLG SHOULD REPORT FATAL ERROR? 

2933 013334 001413 BEQ 12$ :1F NOT: BR 

2934 013336 005737 001106 TST SENV ; RUNNING UNDER APT? 

2935 013342 001410 BEQ 12$ :IF NOT: BR 

2936 013344 005737 001066 11$: TST SMSGTYPE ‘FINISHED LAST MESSAGE? 

2937 013350 001375 BNE 11$ IF NOT: WAIT 

2938 013352 017637 000004 001070 MOV a4(SP),$FATAL :GET ERROR # 

2939 013360 005237 001066 INC SMSGTYPE ;TELL APT TO TAKE ERROR 

2940 013364 062766 000002 000004 12%: ADD #2,4(SP) ;BUMP RETURN ADDRESS 

2941 013372 105037 013416 CLRB SFFLG CLEAR FATAL FLAG 

2942 013376 105037 013418 CLRB SLFLG CLEAR LOG FLAG 

2943 013402 105037 013414 CLRB SMFLG CLEAR MESSAGE FLAG 

2944 013406 012601 MOV (SP)+,R1 POP STACK INTO R1 

2945 013410 012600 MOV (SP)+,RO POP STACK INTO R1 

2946 013412 000207 RTS PC ; RETURN 

2947 013414 000 SMFLG: .BYTE 0 

2948 013415 000 S$LFLG: .BYTE 0 LOG FLAG 

sper 013416 000 SFFLG: .BYTE 0 sFATAL FLAG 


2951 013420 - EVEN 
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2952 000200 APTSIZE=200 

2953 000001 APTENV=001 

2954 000100 APTSPOOL=100 

2955 000040 APTCSUP=040 
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CZDLDC.P11 19-APR-78 1 APT COMMUNICATIONS ROUTINE 

2957 

344 -SBTTL TYPE ROUTINE 

2960 FREAK 

2961  #ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 

2962 :*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 

2963 :*NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

2964 3 *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

eH ; *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

2967 RCA LL: 

2968 Pd USING A TRAP INSTRUCTION 

2969 TYPE »MESADR :;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 

2970 “20R 

2971 it TYPE 

2972 7 MESADR 

2973 :* 

2974 

2975 013420 105737 001057 $TYPE: TSTB STPFLG 31S THERE A TERMINAL? 

2976 013424 100002 BPL 1$ ::BR IF YES 

2977 013426 000000 HALT 3 HALT HERE IF NO TERMINAL 

2978 013430 000430 BR 3$ ; LEAVE 

2979 013432 010046 1$: MOV RO,-(SP) 7 :SAVE RO 

2980 013434 017600 000002 MOV @2(SP),RO ::GET ADDRESS OF ASCIZ STRING 

2981 013440 122737 000001 001106 CMPB #APTENV,SENV : ;RUNNING IN APT MODE 

2982 013446 001011 BNE 628 >NO,GO CHECK FOR APT CONSOLE 

2983 013450 132737 000100 001107 | BITB WAPTSPOOL,SENVM ;;SPOOL MESSAGE TO APT 

2984 013456 001405 BEQ 62$ :;NG,GO CHECK FOR CONSOLE 

2985 013460 010037 013470 MOV RO,61$ ::SETUP MESSAGE ADDRESS FOR APT 

2986 013464 004737 013160 JSR PC, SATY3 :;SPOOL MESSAGE TO APT 

2987 013470 000000 618: WORD 0 > MESSAGE ADDRESS 

2988 013472 132737 000040 001107 628: BITB #APTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 

2989 013500 001003 BNE 60$ 7; YES,SKIP TYPE OUT 

2990 013502 112046 2$: MOVB (RO)+,=-(SP) :;PUSH CHARACTER TO BE TYPED ONTO STACK 

299T 013504 001005 BNE 4$ ;;BR IF IT ISN'T THE TERMINATOR 

2992 013506 005726 TST (SP)+ ::1F TERMINATOR POP IT OFF THE STACK 

2993 013510 012600 60$: MOV (SP)+,RO 7 RESTORE RO 

2994 013512 062716 000002 3$: ADD #2, (SP) ADJUST RETURN PC 

2995 013516 000002 RTI 3 RETURN 

2996 013520 122716 000011 4$: CMPB #HT, (SP) ?;BRANCH IF <HT> 

2997 013524 001430 BEQ 8$ 

2998 013526 122716 000200 CMPB #CRLF, (SP) ;;BRANCH IF NOT <CRLF> 

2999 013532 001006 BNE 5$ 

3000 013534 005726 TST (SP)+ 3;POP <CR><LF> EQUIV 

3001 013536 104401 TYPE 7: TYPE A CR AND LF 

3002 013540 001063 SCRLF 

3003 013542 105037 01367¢ CLRB SCHARCNT ;;CLEAR CHARACTER COUNT 

3004 013546 000755 BR 2$ :;GET NEXT CHARACTER 

3005 013550 004737 013632 5$: JSR PC ,STYPEC ::GO TYPE THIS CHARACTER 

3006 013554 123726 001056 6$: CMPB SFILLC,(SP)+ 31S IT TIME FOR FILLER CHARS.? 

3007 013560 001350 BNE 2$ ::1F NO GO GET NEXT CHAR, 

3008 013562 013746 001054 MOV SNULL ,~(SP) ::GET # OF FILLER CHARS. NEEDED 

3009 3:AND THE NULL CHAR, 

3010 013566 105366 000001 7$: DECB 1(SP) ;;DOES A NULL NEED TO BE TYPED? 

3011 013572 002770 BLT 6$ ::;BR IF NO--GO POP THE NULL OFF OF STACK 

3012 013574 004737 013632 JSR PC ,STYPEC ::G0 TYPE A NULL 
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013600 105337 013676 DECB SCHARCNT 3:00 NOT COUNT AS A COUNT 
013604 000770 BR 7$ ; LOOP 


;HORIZONTAL TAB PROCESSOR 


013606 112716 000040 8$: #* (SP) REPLACE TAB WITH SPACE 
013632 9$: PC, STYPEC TE TYPE A SPACE 
000007 013676 #7, SCHARCNT ;;BRANCH IF NOT AT 
9$ 3: TAB STOP 
(SP)+ ::POP SPACE OFF STACK 
BR 2s 3:GET NEXT CHARACTER 
165212 STYPEC: . hee B :;WAIT UNTIL PRINTER IS READY 
Y 
000002 165204 2(SP) ,a$TPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
000015 000002 #CR,2(SP) 3218S CHARACTER A CARRIAGE RETURN? 
1$ : BRANCH IF NO 
013676 oes” ph | aaa CHARACTER COUNT 
YPEX 
000012 000002 1$: #LF,2(SP) 3:1S CHARACTER A LINE FEED? 
STYPEX ::BRANCH IF YES 
INCB (PC)+ >;COUNT THE CHARACTER 
SCHARCNT:.WORD 0 ; CHARACTER COUNT STORAGE 
013700 000207 STYPEX: RTS PC 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


FF RRA RAAT RE TERE RARER 


:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT. 
:*STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


*CALL: 
NUM,-(SP) ;;NUMBER TO BE TYPED 
3:CALL FOR TYPEOUT 
N 7:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
if 3;M=1 OR O 
731=TYPE LEADING ZEROS 
3; 0=SUPPRESS LEADING ZEROS 


;*STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*STYPOS OR STYPOC 

3 *CALL: 

:* MOV NUM, -(SP) NUMBER TO BE TYPED 

se TYPON 3:CALL FOR TYPEOUT 


i #STYPOC--~ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
: Lis 


NUM, ~(SP) ; NUMBER TO BE TYPED 
3;CALL FOR TYPEOUT 


013702 017646 000000 STYPOS: a(SP),-(SP) ;;PICKUP THE MODE 
000001 014125 M 1(SP),SOFILL 3;LOAD ZERO FILL SWITCH 
014127 (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
000002 ~ + AS oy ; ADJUST RETURN ADDRESS 
000001 014125 $TYPOC: #1, SOF ILL ;SET THE ZERO FILL SWITCH 
013734 112737 000006 014127 #6, SOMODE +1 7:SET FOR SIX(6) DIGITS 


a e2# e248 8 


me 
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013742 112737 000005 014124 $TYPON: MOVB #5,S0CNT 3;SET THE ITERATION CONT 
6 MOV R3,-(SP) 2 3SAVE R R3 
R4,-(SP) sSAVE R4 
R5,-(SP) SAVE R5 
014127 + taint 3:GET THE NUMBER OF DI‘ ITS TO TYPE 


000006 #6,R4 :;SUBTRACT IT FOR MAX. ALLOWED 
014126 R4 , SOMODE 3:SAVE IT FOR USE 
014125 SOFILL,R4 :;GET THE ZERO FILL SWITCH 
000012 12(SP),R5 ::PICKUP THE INPUT NUMBER 
3;CLEAR THE OUTPUT WORD 
;;ROTATE MSB INTO ‘'C’’ 
3:60 DO MSB 
::FORM THIS DIGIT 


: R 3:GET LSB OF THIS DIGIT 
014126 zs TYPE THIS DIGIT? 
::BR_ IF NO 
177770 . :3;GET RID OF JUNK 
4$ 33 FOR 0 
;; SUPPRESS THIS 0? 
:3BR IF YES 
2 3:DON'T SUPPRESS ANYMORE 0°S 
000060 7:MAKE THIS DIGIT ASCII 
00040 : P 3;MAKE ASCII IF NOT ALREADY 
014122 7:SAVE FOR TYPING 
014122 ,8$ 3:GO TYPE THIS DIGIT 
014124 : ;:COUNT BY 1 
$ ::BR IF MORE TO DO 
3:BR IF DONE 
3; INSURE LAST DIGIT ISN'T A BLANK 
+360 DO THE LAST DIGIT 
(SP)+,R5 sRESTORE R5 
(SP)+,R4 TERESTORE R4 
(SP)+,R3 7 ;RESTORE R3 
000002 000004 2(SP),4(SP) 7:SET THE STACK FOR RETURNING 
(SP)+, (SP) = 
3 sRETU 


RN 
8$: ::STORAGE FOR ASCII DIGIT 
3; TERMINATOR FOR TYPE ROUTINE 
SOCNT: .BYTE :;OCTAL DIGIT COUNTER 
0 SOFILL: .BYTE 3;ZERO FILL SWITCH 
014126 000000 SOMODE: .WORD ; NUMBER OF DIGITS TO TYPE 
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CZDLDC.P11 —- 19=APR=78 11:41 BINARY TO OCTAL (ASCII) AND TYPE 
3115 
3116 .SBTTL TTY INPUT ROUTINE 
3118 g SEAR RAE EEA EAE EEE ERATE REAR EEE 
3119 .ENABL LSB 
3121 FURR AREER EERE EERE REE AEE E REAR REE EEREEEKEE 
3122 ;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
3123 ;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
3124 s*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
3125 ;*WHEN OPERATING IN TTY FLAG MODE. 
3126 014130 022737 000176 001040 $CKSWR: CMP #SWREG, SWR 3318 THE SOFT-SWR SELECTED? 
3127 014136 001074 BNE 15$ ;;BRANCH IF NO 
3128 014140 105777 164700 TSTB = @STKS ::CHAR THERE? 
3129 014144 100071 BPL 15$ :;1F NO, DON'T WAIT AROUND 
3130 014146 117746 164674 MOVB aSTKB,-(SP) ::SAVE THE CHAR 
3131 014152 042716 177600 BIC # C177, (SP) ::STRIP-OFF THE ASCII 
3132 014156 022726 000007 CMP #7,(SP)+ :31S IT A CONTROL G? 
3133 014162 001062 BNE 15$ 73NO, RETURN TO USER 
3134 014164 123727 001034 000001 CMPB =: S$AUTOB, #1 ;;ARE WE RUNNING IN AUTO-MODE? 
3135 014172 001456 BEQ 15$ :;BRANCH IF YES 
3137 014174 104401 014655 TYPE  ,S$CNTLG ;sECHO THE CONTROL=G ( G) 
3138 014200 104401 014662 SGTSWR: TYPE ‘> S$MSWR :; TYPE CURRENT CONTENTS 
3139 014204 013746 000176 MOV SWREG,-(SP) ;7SAVE SWREG FOR TYPEOUT 
3140 014210 104402 TYPOC 3360 TYPE--OCTAL ASCII(ALL DIGITS) 
3141 014212 104401 014673 TYPE =, SHNEW 7;PROMPT FOR NEW SWR 
3142 014216 005046 19$: CLR =(SP) :;CLEAR COUNTER 
3143 014220 005046 CLR -(SP) 7: THE NEW SWR 
3144 014222 105777 164616 7$: TSTB = @STKS ::CHAR THERE? 
3145 014226 100375 BPL 7$ ::1F NOT TRY AGAIN 
3147 014230 117746 164612 MOVB aSTKB,-(SP) ;:PICK UP CHAR 
3148 014234 042716 177600 BIC # (177, (SP) :;MAKE IT 7-B1T ASCII 
3150 
3151 
3152 014240 021627 000025 9$: CMP (SP) #25 3318 IT A CONTROL-U? 
3153 014244 001005 BNE 10$ ;;BRANCH IF NOT 
3154 014246 104401 014650 TYPE =, SCNTLU 7:YES, ECHO CONTROL-U ( U) 
3155 014252 062706 000006 20$: ADD #6,SP 3; 1GNOKE PREVIOUS INPUT 
3156 014256 000757 BR 19$ ::LET'S TRY IT AGAIN 
3158 
3159 014260 021627 000015 10$: CMP (SP) #15 piIS ITA <cR>? 
3160 014264 001022 BNE 16$ ::BRANCK IF N 
3161 014266 005766 00000¢ TST 4(SP) ::YES, iS IT THE FIRST CHAR? 
3162 014272 001403 BEQ 11$ ;:BRANCH IF YES 
3163 014274 016677 000002 164536 MOV 2(SP) ,aSwR 77SAVE NEW SWR 
3164 014302 062706 000006 11$: ADD #6,SP :3CLEAR UP STACK 
3165 014306 104401 001063 14$: TYPE  ,S$CRLF SECHO <CR> AND <LF> 
3166 014312 123727 001035 000001 CMPB Ss SINTAG, #1 +; RE-ENABLE ry KBD INTERRUPTS? 
3167 014320 001003 BNE 1 ::BRANCH IF N 
3168 014322 012777 000100 164514 MOV #100, a$TKs i: RE-ENABLE ry KBD INTERRUPTS 
3169 014330 000002 15$: RTI : RETURN 
3170 014332 004737 013632 16$: JSR PC, STYPEC ::ECHO CHAR 
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3171 014336 021627 000060 CMP (SP) , #60 > CHAR < 0? 

3172 014342 002420 BLT 18$ ;;BRANCH IF YES 

3173 014344 021627 000067 CMP (SP) ,#67 7 ;CHAR > 7? 

3174 014350 003015 BGT 18$ ;;BRANCH IF YES 

3175 014352 042726 000060 BIC #60, (SP)+ sz STRIP-OFF ASCII 

3176 014356 005766 000002 TST 2(SP) 3:18 THIS THE FIRST CHAR 

3177 014362 901403 BEQ 17$ > :;BRANCH IF YES 

3178 014364 006316 ASL (SP) 7:NO, SHIFT PRESENT 

3179 014366 006316 ASL (SP) se CHAR OVER TO MAKE 

3180 014370 006316 ASL (SP) 33 ROOM FOR NEW ONE. 

318% 014372 005266 000002 17$: INC 2(SP) i sKEEP COUNT OF CHAR 

3182 014376 056616 177776 BIS -2(SP), (SP) 7SET IN NEW CHAR 

3183 014402 000707 BR 7$ GET THE NEXT ONE 

3184 014404 104401 001062 18$: TYPE , SQUES 77 TYPE ?<CR><LF> 

3185 014410 000720 BR 20$ 3: SIMULATE CONTROL-U 

3186 -DSABL LSB 

3187 

3188 

3189 5 FURR AA AREA AREER AEA A ARE AEE RARER EAAARAKEKERREERE 

cst *THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

s*CALL: 

3192 i RDCHR +3 INPUT A SINGLE CHARACTER FROM THE TTY 

3193 it RETURN HERE ;CHARACTER IS ON THE STACK 

3194 st WITH PARITY BIT STRIPPED OFF 

3195 : 

3196 

3197 014412 011646 SRDCHR: MOV (SP) ,-(SP) 3:PUSH DOWN THE PC 

3198 014414 016666 000004 000002 MOV 4(SP),2(SP) 7: SAVE THE PS 

3199 014422 105777 164416 1$: TSTB asTks sz WAIT FOR 

3200 014426 100375 BPL 1$ 372A CHARACTER 

3201 014430 117766 164412 000004 MOVB asTKB,4(SP) 3;READ THE TTY 

3202 014436 042766 177600 000004 BIC # C<177>,4(SP) 3:;GET RID OF JUNK IF ANY 

3203 014444 026627 000004 000023 CMP 4(SP) ,#23 3:18 IT A CONTROL-S? 

3204 014452 001013 BNE 3$ 3;BRANCH IF NO 

3205 014454 105777 164364 2$: TSTB asTKs s7WAIT FOR A CHARACTER 

3206 014460 100375 BPL 2$ 3;LOOP UNTIL ITS THERE 

3207 014462 117746 164360 MOVB a$TKB,-(SP) 7;GET CHARACTER 

3208 014466 042716 177600 BIC # C177, (SP) 73:MAKE IT 7-BIT ASCII 

3209 014472 022627 000021 CMP (SP)+,#21 3:18 IT A CONTROL-Q? 

3210 014476 001366 BNE 2$ 37 1F NOT DISCARD IT 

3211 014500 000750 BR 1$ 7: YES, RESUME 

3212 014502 026627 000004 000140 3$: CMP 4(SP),#140 3718 IT UPPER CASE? 

3213 014510 002407 BLT 4$ 7:BRANCH IF YES 

3214 014512 026627 000004 000175 CMP 4(SP),#175 3:18 IT A SPECIAL CHAR? 

3215 014520 003003 BGT 4$ 3;BRANCH IF YES 

3216 014522 042766 000040 000004 BIC #40,4(SP) 7:MAKE IT UPPER CASE 

3217 014530 000002 4$: RTI 3:60 BACK TO USER 

3218 s FURR AAA AER A TERETE AETEE AEE A EAE A AEE A AE AE AEA E AAA E ERE 

3219 3*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 

3220 7*CALL: 

3221 ;* RDLIN 3; INPUT A STRING FROM THE TTY 

3222 ;* RETURN HERE 7; ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

$552 3* >; TERMINATOR WILL BE A BYTE OF ALL O'S 

3225 014532 010346 SRDLIN: MOV R3,-(SP) 


7; SAVE R3 
3226 014534 012703 014640 1$: MOV #STTYIN,RS ::GET ADDRESS 
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3227 014540 022703 014650 2$: CMP #STTYING8.,R3 =; ;BUFFER FULL? 

3228 014544 101405 BLOS 4$ ;:;BR IF YES 

3229 014546 104407 RDCHR +360 READ ONE CHARACTER FROM THE TTY 

3230 014550 112613 MOVB (SP)+, (R3) ;GET CHARACTER 

3231 014552 122713 000177 10$: CMPB #177, (R3) ::1$ IT A RUBOUT 

3232 014556 001003 BNE 3$ 7;SKIP IF NOT 

3233 014560 104401 001062 4$: TYPE , $QUES ss TYPE A °?" 

3234 014564 000763 BR 1$ ;;CLEAR THE BUFFER AND LOOP 

3235 014566 1113277 014636 3$: MOVB (R3),9$ ;;ECHO THE CHARACTER 

3236 014572 104401 014636 TYPE .9$ 

3237 014576 122723 000015 CMPB #15,(R3)+ ;;CHECK FOR RETURN 

3238 014602 001356 BNE 2$ ;;LOOP IF NOT RETURN 

3239 014604 105063 1/7777 CLRB -1(R3) ::CLEAR RETURN (THE 15) 

3240 014610 104401 001064 TYPE - SLF 7: TYPE A LINE FEED 

3241 014614 012603 MOV (SP)+,R3 ;;RESTORE R3 

3242 014616 011646 MOV (SP) ,-(SP) ;;ADJUST THE STACK AND PUT ADDRESS OF THE 

3243 014620 016666 000004 000002 MOV 4(SP) ,2(SP) 3 FIRST ASCII CHARACTER ON IT 

3244 014626 012766 014640 000004 MOV #STTYIN,4(SP) 

3245 014634 000002 RTI 7 RETURN 

3246 014636 000 9$: -BYTE 0 3:STORAGE FOR ASCII CHAR. TO TYPE 

3247 014637 000 -BYTE 0 3; TERMINATOR 

3248 014640 000010 $TTYIN: .BLKB 8. doe bebbey 8 BYTES FOR TTY INPUT 

3249 014650 052536 005015 000 $CNTLU: .ASCIZ / U/<15><12> :;CONTROL ‘'U"' 


3250 014655 136 006507 000012 S$CNTLG: .ASCIZ / G/<15><12> ;;CONTROL ''G’’ 
3251 014662 005015 053523 020122 S$MSWR: .ASCIZ <15><12>/SWR = / 


3253 014673 040 047040 053505 S$MNEW: .ASCIZ / NEW = / 
3254 014700 036440 000040 
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P11 19=APR-78 1 TTY INPUT ROUTINE 


-SBTTL TRAP DECODER 


SSeS TC PSCC CPP retiree errr l irri t i titi iti iit isi iii iii iit 
 STHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
3*GO TO THAT ROUTINE. 


014704 010046 STRAP: RO,-(SP) ::SAVE RO 

014706 016600 000002 M ;;GET TRAP ADDRESS 
014712 005740 ; BACKUP BY 2 

014714 111000 +3GET RIGHT BYTE OF TRAP 
014716 006300 RO ;POSITION FOR INDEXING 
014720 016000 014740 STRPAD(RO),RO  ;; INDEX TO TABLE 

014724 000200 RO 3;GO TO ROUTINE 


3: THIS IS USE TO HANDLE THE ‘’GETPRI*’ MACRO 


014726 011646 $TRAP2: MOV (SP) ,-(SP) ;:MOVE THE PC DOWN 
014730 016666 000004 000002 MOV 4(SP),2(SP) ;;MOVE THE PSW DOWN 
014736 000002 RTI ;;RESTORE THE PSW 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE ‘“‘TRAP’’ INSTRUCTION. 


: ROUTINE 


014740 014726 STRPAD: . STRAP2 

014742 013420 $ >; CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

014744 013726 :;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
014746 013702 ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
014750 013742 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 


014752 014200 SGTSWR ;;CALL=GTSWR TRAP+5(104405) GET SOFT-SWR SETTING 
014754 014130 SCKSWR ;;CALL=CKSWR TRAP+6(104406) TEST FOR CHANGE IN SOFT-SWR 


014756 014412 SRDCHR ;;CALL=RDCHR TRAP+7(104407) TTY TYPEIN CHARACTER ROUTINE 
014760 014532 SRDLIN ;;CALL=RDLIN TRAP+10(104410) TTY TYPEIN STRING ROUTINE 
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.SBTTL ECHO TEST 
; FREER E REE REE REE REE AERA ERE REE 
;*THIS ROUTINE WILL ECHO ANY CHARACTER TYPED 
:*AT THE CONSOLE 
:*THE TEST IS HALTED BY TYPING A CONTROL-C 
;*TEST CAN BE RESTARTED AFTER HALTING BY JUST CONTINUING 
be ReeREREHREH RE RHERE REE REE REE RHE TEREERERREA RHEE H ERE TREE ERE 
014762 ECHO: 
000005 :CLEAR EVERYTHING 
000052 165402 #'* ,aCTBUF : TRANSMIT PROMPT ‘'s"* 
165370 2 a@cRCSR :WAIT FOR INPUT 


2$ 

165364 165366 @CRBUF ,@CTBUF ;ECHO INPUT 

165356 aCRBUF ,RO ;STORE INPUT 
5$ ;BR IF ‘‘ERROR''NOT SET 

010000 #B1IT12,R1 SET PARITY ERROR TEST MASK 
R1,R0 :CHECK FOR PARITY ERROR FLAG 
3$ ;BR IF NOT SET 

015106 PC,MSG REPORT PARITY ERROR 


R1 SHIFT MASK TO TEST ‘‘FR’’ FLAG 
R1,R0 TEST FOR FRAMING ERROR FLAG 
4$ BR IF NOT SET 

015106 PC,MSG sREPSORT FRAMING ERROR 


R1 SHIFT MASK TO TEST ‘‘OR'’ FLAG 
R1,R0 TEST FOR OVERFLOW ERROR 
5$ ;BR IF NOT SET 

015106 PC.MSG REPORT OVERFLOW ERROR 


000200 : #BIT7,RO ;CLEAR ANY PARITY BIT 

000003 #3,R0 ;WAS INPUT CONTROL-C 
2$ 7;BR IF NOT 

015106 PC,MSG REPORT PROGRAM STOP 


;END OF TEST HALT 
015104 000726 ECHO ;AFTER END OF TEST 
; PRESS CONTINUE TO. RESTART ECHO TEST 


015106 013600 : a(SP)+,R0 ;PICK UP oes POINTER 
000002 A #2,-(SP) ;ADJUST RETURN PC 
165252 : acTCSR sWAIT FOR XMIT DONE 


WAIT 
165246 (RO)+,aCTBUF SEND CHARACTER 
(RO) :1S THIS END OF MESSAGE? 
WAIT ;BR IF NOT 
000207 PC ; RETURN 


005015 040520 044522 > ASCIZ «=<CR><LF>/PARITY/ 
054524 000 

015 043012 040522 : -ASCIZ <CR><LF>/FRAMING/ 
wa 6 00 


04351 0 

047412 042526 : -ASCIZ <CR><LF>/OVERFLOW/ 
043122 047514 000127 

vag 052123 050117 >: .ASCIZ <CR><LF>/STOP/ 


ZSBEBEEZBEEBEEZEEZBEEBEEZBEEZEEEZEZEEZEBOK- 





-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 83 SEQ 0083 
CZDLDC.P11 19=APR=78 11:41 ECHO TEST 


015202 -EVEN 
-SBTTL TERMINAL OUTPUT TEST 


PRR EEEEE EERE TEER RETREAT EERE REE 
s*THIS ROUTINE WILL OUTPUT ALL WRITABLE CHARACTERS FOR THE 
s*THE OCTAL CODE 040 --> 377 
3*32 CHARACTERS ARE PRINTED ON EACH LINE 
;*THE PATTERN IS REPEATED EVERY THREE LINES 
* 
PPPTTITITITITITIIIITTITITITTTTIITTTITITTITTTiTiTiTiTi TTT Tritt rts 


012701 000040 OUTTST: MOV #40,R1 ;LOAD FIRST WRITABLE CHARACTER 

012700 000040 1$: #40,R0 ;LOAD CHAR COUNT PER LINE 

105777 =165154 2s: acTcsrR ;WAIT FOR DONE 

100375 2$ 

010177 165150 R1,aCTBUF > TRANSMIT A CHARACTER 

105201 R1 : INCREMENT CHARACTER CODE 

005300 RO ;DECREMENT CHAR COUNT 

001370 2$ ;BR IF LINE NOT COMPLETE 
015232 004737 015106 PC,MSG sSSUE CR,LINE FEED 


015236 001063 
165122 acRCSR :ANY CHARACTER RECEIVED? 
3$ 7BR IF YES 


000200 #BIT7,R1 FINISHED ONE PASS OF WRITABLE CHARACTERS? 
OUTTST :BR IF YES 
015254 000754 1$ 7; 1F NOT WRITE NEXT LINE 


015256 005077 165106 : aCRBUF ;CLEAR RECEIVER 
015262 000000 STOP TEST 
015264 000746 OUTTST ;RESTART TEST IF CONTINUED 





~-MAIN, MACY11 30A(1052) 19-APR-78 11:44 PAGE 84 SEQ 0084 
DLDC.P11 19-APR-78 11:41 TERMINAL OUTPUT TEST 


015266 040503 020116 047516 EMI: -ASCIZ /CAN NOT ACCESS TCSR/ 
041501 042503 
052040 051503 


020116 047516 EM2: . /CAN NOT ACCESS TBUF/ 
041501 042503 
052040 052502 


051123 Re Psie EM3: . /TCSR DONE NOT CLEARED WITH TBUF FULL/ 
040505 
044527 
052502 

052506 046114 

051503 020122 : . /TCSR DONE NOT SET/ 

042516 047040 

051440 052105 


051503 020122 : . /TCSR DONE NOT SET WITH RESET/ 


/CAN NOT ACCESS RCSR/ 
051040 051503 
020116 047516 : , /CAN NOT ACCESS RBUF/ 
041501 042503 
051040 052502 
020116 047516 _ /CAN NOT ACCESS LKS/ 
041501 042503 
046040 051513 


052111 020060 : . /BITO OF TCSR NOT CLEAR AFTER RESET/ 


/CAN NOT SET BITO OF TCSR/ 


041524 051123 
047101 047040 t «6 /CAN NOT CLEAR BITO OF TCSR/ 


052040 


020124 . « /RESET DID NOT CLEAR BITO OF TCSR/ 
015712 044504 020104 047516 





~-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 85 SEQ 0085 
CZDLDC.P11 19-APR-78 11:41 TERMINAL OUTPUT TEST 


015720 020124 046103 040505 
030124 
041524 


020062 : . /BIT2 OF TCSR NOT CLEAR AFTER RESET/ 


/CAN NOT SET BIT2 OF TCSR/ 


041524 051123 
047101 047040 : . /CAN NOT CLEAR BIT2 OF TCSR/ 


052040 


020124 i -» /RESET DID NOT CLEAR BIT2 OF TCSR/ 
047516 
040505 
031124 
041524 


020066 : . :B1T6 OF TCSR NOT CLEAR AFTER RESET/ 


042523 027524 
044515 020124 , /XMIT INTERRUPT AT PRIORITY 7/ 


/CAN NOT SET BIT6 OF TCSR/ 


041524 051123 

047101 047040 - « /CAN NOT CLEAR BIT6 OF TCSR/ 
042514 
052111 
052040 


020124 Row _/RESET DID NOT CLEAR BIT6 OF TCSR/ 


041524 


102 020066 bh os /BIT6 OF RCSR NOT CLEAR AFTER RESET/ 
016370 051040 051503 





-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 86 SEQ 0086 
CZDLDC.P11 19-APR-78 11:41 TERMINAL OUTPUT TEST 


016376 020122 047516 020124 


EM27: eASCIZ /RCVR INTERRUPT WITH PRIORITY 7/ 


054524 033440 
047101 047040 : /CAN NOT SET BIT6 OF RCSR/ 
051440 052105 
052111 020066 
051040 051503 
020116 047516 : /CAN NOT CLEAR BIT6 OF RCSR/ 
040505 
033124 
041522 


047040 : /CAN NOT CLEAR BIT6 OF RCSR WITH RESET/ 


051505 
020066 : /BIT6 OF LKS NOT CLEAR AFTER RESET/ 


/LKS INTERRUPT WITH PRIORITY 7/ 


054524 033440 


047101 047040 : /CAN NOT SET BIT6 OF LKS/ 
052105 
020066 

046040 051513 


047101 047040 : /CAN NOT CLEAR BIT6 OF LKS/ 
042514 " 
052111 
046040 


052105 €EM37:  .ASCIZ /RESET DID NOT CLEAR BIT6 OF LKS/ 


00 046040 
017041 040525 020114 : /DUAL ADDRESSING ERROR/ 





~-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 87 SEQ 0087 
CZDLDC.P11 19=APR-78 11:41 TERMINAL OUTPUT TEST 


017046 042101 051505 
042440 
000 


020066 -ASCIZ /BIT6 OF LKS NOT SET AFTER RESET/ 
051513 
051440 
052106 
051505 


047040 _ /CAN NOT CLEAR BIT? OF LKS/ 
042514 
052111 
046040 


020067 i. +s /BIT? OF LKS DOES NOT SET/ 
051513 
020123 

020124 042523 


020103 047111 _- /RTC INTERRUPT AT PRIORITY 7/ 
050125 
050040 
052111 


047111 : ° /RTC INTERRUPTS WHEN DISABLED/ 


046102 042105 
041524 : ee /RTC INTERRUPT DID NOT OCCUR/ 


122 
052116 


/RTC DOUBLE INTERRUPT/ 
051122 
020124 : . /RESET DID NOT INTERRUPT/ 


/RTC INTERRUPT DID NOT CLEAR WITH BIT? OF LKS/ 


046040 
045503 ate /CLOCK REPEATABILITY/ 
040505 
044514 


2 000 
017515 130 044515 020124 f » /XMIT INTERRUPTS WHEN DISABLED/ 





-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 88 SEQ 0088 
CZDLDC.P11 19-APR-78 11:41 TERMINAL OUTPUT TEST 


017522 047111 042524 051122 
051524 053440 
020116 044504 
046102 042105 


044515 020124 i 2 /XMIT INTERRUPTS AT PRIORITY 7/ 
051122 
040440 
047511 

054524 033440 


044515 020124 : . /XMIT INTERRUPTS WITH ENABLE CLEAR/ 


051101 
044515 ‘aar /XMIT DID NOT INTERRUPT/ 


/XMIT RE-INTERRUPTED/ 
050125 042524 


042101 047111 PR /LOADING TBUF DID NOT CLEAR INTERRUPT/ 
041124 043125 
042111 047040 
041440 042514 
044440 052116 
052522 052120 


053103 020122 ft -« /RCVR ACTIVE NOT SET/ 
044524 042526 
052117 051440 
000 
020122 i a /RCVR DONE NEVER SET/ 
047040 
051440 


020122 t os /RCVR ACTIVE NOT CLEARED WITH DONE SET/ 


051440 
052105 Si @ /RESET DID NOT CLEAR RCVR DONE/ 


047504 042516 


122 051104 042440 i: a /ROR ENABLE DID NOT CLEAR RCVR DONE/ 
020154 040516 046102 020105 





-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 89 SEQ 0089 
CZDLDC.P11 19=APR=78 11:41 TERMINAL OUTPUT TEST 


3670 020162 044504 020104 047516 


3674 020212 042522 042101 047111 EM70:  .ASCIZ /READING RBUF DID NOT CLEAR RCVR DONE/ 


3679 020250 weg 047504 042516 
3681 020257 122 053103 020122 EM71: .ASCIZ /RCVR INTERRUPTS WITH ENABLE CLEAR/ 


000 
3687 020321 122 053103 020122 EM73: .ASCIZ /RCVR INTERRUPTS AT PRIORITY 7/ 


3691 020350 044522 054524 033440 


3693 020357 122 053103 020122 EM74: .ASCIZ /RCVR INT RQST PASSED WITH ENABLE CLEAR/ 
3694 020364 047111 020124 050522 

3695 020372 052123 050040 051501 

3696 020400 042523 020104 044527 

3697 020406 044124 042440 040516 

3698 020414 046102 020105 046103 

3699 020422 040505 000122 

3700 020426 EM72: 

3701 020426 041522 051126 042040 EM75: .ASCIZ /RCVR DID NOT INTERRUPT/ 
3702 020434 042111 047040 052117 

3703 020442 044440 052116 051105 

3704 020450 052522 052120 000 

3705 020455 122 053103 020122 EM76: .ASCIZ /RCVR RE-INTERRUPTED/ 
3706 020462 042522 044455 052116 

3707 020470 051105 052522 052120 


000 
3709 020501 122 040505 044504 EM77: .ASCIZ /READING RBUF DID NOT CLEAR INTERRUPT/ 


3714 020536 042524 051122 050125 


3716 020546 042522 04252 020124 EM100: .ASCIZ /RESET DID NOT CLEAR RCVR INTERRUPT/ 
3717 020554 044504 020104 047516 


0 
3722 020611 047 051117 020047 EM101: .ASCIZ /'OR' FLAG DID NOT SET/ 


0 
3725 020632 051440 052105 000 





-MAIN, MACY11 30A(1052) 19-APR-78 11:44 PAGE 90 SEQ 0090 
CZDLDC.P11 19=APR-78 11:41 TERMINAL OUTPUT TEST 


access 047 051105 047522 EM102: .ASCIZ /*ERROR' NOT SET WITH ‘OR' FLAG/ 


043040 040514 
040505 020113 EM103: . /BREAK DID NOT XMIT ALL ZEROES/ 


EM104: . /BREAK DID NOT SET "FR" ERROR/ 


EM105: . /DATA COMPARE ERROR/ 
051105 047522 
040524 041440 EM106: . /DATA COMPARE ERROR WITH CABLE/ 


EM107: . /TIMEOUT IN EXERCISER TEST/ 


0 
052040 051505 
047503 051122 EM110: .ASCIZ /INCORRECT RECEIVE COUNT/ 


EM111: .ASCIZ /DATA COMPARE ERROR IN EXERCISER/ 


044503 042523 


050101 041440 EM112: . /TRAP CATCHER/ 

044103 051105 

020117 046103 EM113: . /NO CLK INTERRUPT IN EXERCISER/ 
042524 
020124 
042530 

051511 051105 


051105 047522 EM114: . /“ERROR' NOT SET WITH ‘FR’ FLAG/ 


043040 040514 
0213506 041522 020126 041501 M115: . /RCV ACTIVE NOT CLEAR WITH INIT/ 





-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 91 SEQ 0091 
CZDLDC.P11 19-APR-78 11:41 TERMINAL OUTPUT TEST 


021314 044524 042526 047040 
041440 042514 
053440 052111 
047111 052111 


053103 040440 -ASCIZ /RCV ACTIVE WITHOUT "'START' BIT/ 
044124 

051442 

020042 044502 


020122 047105 eASCIZ /ROR ENABLE NOT CLEAR WITH RCV ACTIVE/ 


044524 042526 
021450 


021451 124 051505 021524 : -ASCIZ /TEST#  ERROR# 
051122 
052040 


020043 : -ASCIZ /TEST# ERR PC 
020122 
041124 


021524 : ~-ASCIZ /TEST# ERR PC RCSR/ 
051122 
051040 


020043 : eASCIZ /TEST# ERR PC RBUF/ 
020122 
041122 
021524 eASCIZ) /TEST# ERR PC LKS/ 
051122 
046040 


021524 -ASCIZ) /TEST# ERR PC GOOD BAD/ 


eASCIZ /TEST# LKS CNT1 CNT2/ 


0 
041440 052116 
052123 020043 eASCIZ = /TEST# RCSR DATA/ 


021752 040504 040524 





-RMAIN. 


CZDLOC.P11 
021757 


022132 


0<2140 
022146 


022152 
022154 
022162 
022170 
022176 


022204 


022352 


MACY11 30A(1052) 


19-APR-78 


19-APR-78 11°41 


124 


020120 


005015 
026504 


005015 
020040 
041511 
042116 
051505 


001072 


000001 


051505 


041040 
051505 


051040 
051505 


042101 
055103 
000103 
042040 
020124 


001016 
001016 
001016 
001016 
001016 
001016 


012302 


021524 
051122 
051040 
020040 
020104 
042101 


021524 


053103 
021524 


000122 
046104 


053105 
052440 
052040 
000040 
002352 
002354 
002346 
002350 
002406 
001020 
002406 
000000 
002346 


002346 


000000 


11:44 PAGE 92 


TERMINAL OUTPUT TEST 


DH105: .ASCIZ 


DH110: .ASCIZ 


DH112: .ASCIZ 


EVEN 
-ASCIZ 


EVEN 


-ASCII 
-ASCIZ 


-EVEN 
- WORD 


- WORD 
«WORD 
« WORD 
«WORD 
«WORD 
«WORD 
. WORD 
- WORD 
- WORD 
«WORD 
- END 


DT10: 
DT40: 
DT53: 
DT103: 
DT105: 
DT110: 
DT112: 


/TEST# 


/TEST# 


/TES'# 


<CRO<LF>/CZDLD-C/ 


<CR><LF> 


/ DEVICES UNDER TEST / 


ERR PC 


ERR PC 


ERR PC 


RCSR 


RCSR 


RCSR 


STESTN,SERRPC,TCSR,0 
STESTN,SERRPC, TBUF 0 
STESTN, SERRPC,RCSR,0 
STESTN, SERRPC,RBUF ,0 
STESTN, SERRPC,LKS,0 

STESTN, SERRPC ,SGDADR,$BDADR,0 


STESTN, SERRPC.LKS,FIRST,SECND,0 


GOOD 


TRANS 


OLDPC 


STESTN, SERRPC .RCSR,$BDDAT,0 
STESTN, SERRPC,RCSR,SGDDAT,$BDDAT,0 
STESTN,SERRPC,RCSR,XMTCNT,.RCVCNT,O 


STESTN, SERRPC,RCSR,OLDPC,BDVECT,0 


BAD / 


RCV/ 


TRAP ADR/ 





C 8 
-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 94 SEQ 0093 
CZDLOC.P1% 19-APR=78 11:41 CROSS REFERENCE TABLE -~ USER SYMBOLS 


ABASE = 176500 650 691 


656 
650 692 
1314# 1317 
11394 1145 1312 
650 61 


29534 2981 


2983 
12454 


664 
689 


3890 





dD 8 


-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 95 SEQ 0094 
CZDLDC.P11 19-APR-78 11:41 CROSS REFERENCE TABLE -- USER SYMBOLS 
BEGIN 003424 1287# 2686 
BITO = 000001 5224 81215 1289 1481 1492 1493 1498 1499 1510 1512 1514 2167 2172 
2177 2408 2415 2420 2424 2437 2441 
BITOO = 000001 5124 5 
B1T01 = 000002 5114 521 
1T02 = 000004 5104 520 
1T03 = 000010 5094 519 
1704 = 000020 5084 518 
1T05 = 000040 5074 517 
1T06 = 000100 5064 516 
1107 = 000200 5054 515 
1T08 = 000400 504# 514 
1T09 = 001000 5034 513 2742 2881 
BIT1 = 000002 5214 1287 1723 
BIT10 = 002000 502# 2373 2431 
BIT11 = 004000 501# 2109 2118 2128 2144 
BIT12 = 010000 500# 3315 
1T13 = 020000 499% 2442 2726 
1T14 = 040000 498# 2384 2865 
BIT15 = 100000 497# 2389 2447 
BIT2 = 000004 520# 1523 1536 1537 1542 1543 1555 1557 1560 2106 2113 2124 2131 
2140 2146 2154 2158 2168 2180 2191 2196 209 2217 2220 2228 2233 
2247 2254 2264 2267 2285 2289 2322 2326 2351 2376 2383 2403 2415 
2420 2424 2436 2441 2462 2479 2482 2544 
BITS = 000010 519# 
IT4 = 000020 5184 1211 1282 1420 1724 1977 
BITS = 000040 517# 1219 2591 2609 
BIT6 = 000100 5164 1574 1584 1585 1591 1592 1597 1599 1616 1626 1627 1633 1634 
1640 1642 1657 1675 1682 1692 1693 1699 1700 1704 1706 1735 1736 
1760 1792 1801 1824 1832 1846 1856 1874 1885 1892 1899 1914 1921 
1928 1946 1948 1989 2002 2007 2016 2023 2030 2047 2056 2066 2079 
2084 2092 2207 2208 2226 2232 2251 2259 2290 2301 2321 2331 2350 
2359 2539 2543 2545 2546 2559 2578 2611 
BIT7 = 000200 ethan sine 1768 1769 1771 1772 1800 1823 1855 1891 1920 1924 2490 
BIT8 = 000400 5144 1478 2400 2433 
BIT9 = 001000 5134 
PT = 000003 542m 
PTVEC= 000014 5294 
F 011742 2551 2586 26314 
CATCH 012254 553 26958 
CKSWR = 104406 2741 2864 32964 
CLK 011720 2541 26224 
CLKCNT 011732 2580 2622* 26274 
CMPARE 006536 1964 1967# 
COMP 011560 25884 2592 
CONT 005566 1778# =61781 
CONT41 010724 2411 24184 
= 000015 437# 2676 3027 3037 3348 3350 3352 3354 3860 3863 
cRBUF 002370 1126# 3312 3313 3387+ 
CRCSR 002366 11254 1237 1293 3310 3381 
CRLF = 000200 438# 2998 3037 
CRPSW 002400 11304 
RVECT 002376 11294. 
TBUF 002374 11284 3309" 3312" 3343* 3374+ 
CTCSR 002372 1127# = =—3341 3372 


E 8 
-MAIN, MACY11 30A(1052) 19-APR-78 11:44 PAGE 96 SEQ 0095 
CZDLDC.P11 19=APR-78 11:41 CROSS REFERENCE TABLE =~ USER SYMBOLS 


002404 
002336 1655 


002402 
177570 
002514 
021451 
021575 


021722 


021523 818 833 
1013 1018 


021550 3 

001042 2721* 2892+ 
000174 

177570 

022204 

022244 


022302 


022224 


022234 


021174 





F 8 
-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 97 SEQ 0096 
CZDLDC.P11 19=APR-78 11:41 CROSS REFERENCE TABLE -~ USER SYMBOLS 


EM113 = =021211 1083 37694 
EM114 021247 1088 37758 
EM115 021306 1093 37814 
EM116 =021345 1098 37874 
EMi17 =©021404 1103 37934 
EM12 015620 757 34344 
EM13 015651 762 34394 
EM14 015704 767 34444 
EM15 015745 772 34504 
EM16 016010 777 3456" 
EM17 016041 782 34614 
EM2 015312 717 3396# 
EM20 016074 787 34664 
EM21 016135 792 34724 
M22 016201 797 34798 
M23 016236 802 34844 
M24 016267 807 34894 
M25 016322 812 34944 
M26 016363 817 35004 
M27 016426 822 3506# 
m3 015336 722 34004 
M30 016465 827 35124 
M31 016516 832 35178 
M32 016551 837 35224 
EM33 016617 842 35294 
M34 016661 847 35354 
EM35 016717 852 35414 
M36 016747 857 35464 
M37 017001 862 35514 
M4 015403 727 34074 
M40 017041 867 35574 
M41 017067 872 35614 
M42 017127 877 35674 
EM43 017161 882 3572# 
M44 017212 887 3577# 
M45 017246 892 35824 
M46 017303 897 35884 
M47 017303 902 3587# 
M5 015425 732 34114 
M50 017337 907 35934 
M51 017364 912 3597# 
M52 017414 917 36014 
M53 017471 922 36094 
M54 017515 927 36134 
M55 017653 932 36314 
M56 017553 937 36194 
M57 017611 942 36254 
M6 015462 737 3416# 
M60 017653 947 36324 
M61 017702 952 36364 
M62 017726 957 36404 
M63 017773 962 3647# 
M64 020017 967 36514 
M65 020043 972 36554 
M66 020111 977 36624 


M67 020147 982 36684 


G 8 
«MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 98 SEQ 0097 
CZDLDC.P11 19=APR-78 11:41 CROSS REFERENCE TABLE -~ USER SYMBOLS 


015506 


2871* 2873* 2876+ 


steers 3296 3297 3298 

012206 

104405 

000011 

004056 

003112 

000020 

000012 3863 

002406 1726 1763 1768* 1769 
1824* 1825 1832* 1855+ 
1922 1924* 1928* 1948+ 

1960+ 
003132 
015145 


33394 


2810* 2819% 
002350 2447 


002346 1640* 
2177* 
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~-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 99 SEQ 0098 
CZDLDC.P11 19-APR-78 11:41 CROSS REFERENCE TABLE -- USER SYMBOLS 


011704 26174 

011726 26254 3888 

104407 32978 

104410 

000010 

02360 2280 2536+ 

012232 

002412 1852+ 2542* 

002410 1798+ 1851* 
1935+ 

002356 2211* 2260* 
2320+ 2349* 2528 

011740 


001040 1209+ 1478 
1946 2431 
2829* 3163* 
000176 


0 
002354 1357 1376* 1381* 1429 1432* 2085* 2088*  2108* 2 

2248 2286* 2323* 2352% 2378% 2404% 2438% 2467% 2498% 2 
TCLOCK 005056 1422 1650# 


3 2169* 2192% 2214% 
5 3872 


135 
552 2613* 
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-MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 100 SEQ 0099 
CZDLDC.P11 19-APR-78 11:41 CROSS REFERENCE TABLE -- USER SYMBOLS 


003450 12924 
002352 1335 1435 1498* 1499 1510* 
1 1543 1584* 
2002+ 2030* 
2092+ 2140+ 
2209* 2247* 
2351+ 2408* 
2479 2611* 


000060 
1269 


2534+ 


19884 


004246 
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»MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 101 SEQ 0100 
CZDLDC.P11 19-APR=-78 11:41 CROSS REFERENCE TABLE -- USER SYMBOLS 


002362 1571* 1604+ 1991* 2001*  2009* 2020* 2031* 2040* 2048 


104401 7 2792 2799 2841 3001 
3 3240 32894 
104402 


104404 
104403 
003320 
002454 
003602 
007270 
015114 
007376 
012242 


007340 
011674 
011650 
011730 
011700 


1551 


1551 


1738* 


3249 3380 


001016 7 3874 3876 3878 3880 3882 


001146 2 
012466 27634 





-MAIN. MACY11 30A(1052) 
19-APR-78 11:41 


CZDLOC.P11 
001012 


000001 


014124 
014126 
013136 
001074 
000506 
012770 
012622 
012756 
012674 
001062 
014412 


11:44 PAGE 102 
CROSS REFERENCE TABLE -- USER SYMBOLS 


2747 


2941 


1729 
2477+ 


14254 
18794 
23128 
3076* 


2655* 


kK 8 


1736 
2596+ 


1456# 
19404 
23698 
31134 


2674 


3880 
3886 


14744 
1985# 
23968 


15184 
20124 
24278 


15654 
20434 
24554 


16074 
20754 
24864 


16514 
21014 
25204 


16694 
21624 


SEQ 0101 


17144 
21864 





-MAIN. MACY11 30A(1052) 19-APR-78 
CZDLDC.P11 19-APR-78 11:41 
SRODEC= eeeeee YJ 3299 
SROLIN 014532 3225# 3298 
SRDOCT= etetee YJ 3299 
RDSZ = 000010 32184 
RTNAD 012164 26734 
R2A = tettee UY 3299 
SAVRE= steeee 3299 
SAVR6 012766 2818* 2828 
SSCOPE 013000 1177 28634 
SSETUP= 000137 560# 1176 
$STUP = 177777 5604 
SSVLAD 013102 2874 2880 
SSVPC = 000500 5764 581 
SWR = 161000 5414 642 
1522 1569 
2016 2047 
2431 2459 
2865 2877 
SSWREG 001110 6634 1209 
SWRMK= 000000 2860 
TESTN 001072 6544 1159* 
3890 
TKB 001046 6354 3119 
STKS 001044 6344 3119 
STN = 000046 540# 1329 
1474 14784 
1714 17184 
19444 1985 
2186 21904 
2373# 2396 
STPB 001052 637# 3026+ 
STPFLG 001057 641# 2975 
TPS 001050 6364 3024 
TRAP 014704 1181 32664 
TRAP2 014726 3277# 3288 
STRP = 000011 32814 32904 
STRPAD 014740 3271 32884 
TSTM 000504 6004 
TSTNM 001002 6144 1650+ 
STTYIN 014640 3226 3227 
TYPBN= *teeee 3293 
TYPDS= *teeee 3293 
TYPE 013420 2929 29754 
STYPEC 013632 3005 3012 
STYPEX 013700 3030 3032 
STYPOC 013726 3067# 3290 
TYPON 013742 3066 30694 
TYPOS 013702 30624 291 
UNIT 01100 657# 1162+ 
UNITM 000510 6024 
USWR 001112 6644 1163 
VECT1 001136 6894 1258 
VECT2 001140 690# 
XTSTR 013012 28684 
$GET4= 000000 26664 
OFILL 014125 3063* 3067+ 


2838+ 
1177 


3077 


11:44 PAGE 103 
CROSS REFERENCE TABLE -- 


31124 


28464 
1181 


32934 


2721 


3025 


2685+ 
2508 


L 8 


USER SYMBOLS 


3170 


7 
24598 


32958 


2886+ 


24904 


32978 


2892 


25248 


32994 


SEQ 0102 


-MAIN, MACY11 30A(1052) 
CZDLOC.P11 19=APR-78 11:41 


S4GOCAT= teeeee YJ 
. = 022360 


~SERRT 001146 
-$X = 000500 


- ABS. 022360 


ERRORS DETECTED: 0 


19=APR-78 


11:44 PAGE 104 


CROSS REFERENCE TABLE -- USER SYMBOLS 


5624 
11394 
3037 


551 5524 5564 
5924 6114 646 
2845 2895 29514 


592 


DSKZ:CZDLDC ,DSKZ:CZDLDC.SEQ=DSKZ:CZDLDC.P11 


RUN-TIME: 25 14 1 SECONDS 
RUN-TIME RATIO: 357/41=8.6 
CORE USED: 21K (41 PAGES) 


DOCUMENT PAGES: 103 


5664 
Me 


1 
3119 


571# 
1174 
32484 


576 
1188 
3249 


577# 
1189 
3255 


5794 
26314 
33584 


5814 
2674 


587 
26754 


SEQ 0103 


5884 
28024 





